[FormerVla]

Roman Go

Для каждого объекта:

begin
..........
SomeObject.free;
SomeObject:=nil;
..........
end;