Алгоритм для поиска max Label.Top

[Airou]

Чего-то все никак не могу придумать оптимальный алгоритм для следующей задачи.

Стоят несколько лейблов один под одним(с одинаковым промежутков по высоте), надо добавить еще один под самый нижний лейбл. Так вот как найти самый нижний лейбл.

Перебор всех компонентов, если лейбл то смотрим высоту, записываем высоту в переменную, смотрим дальше лейблы? Примерно так?

[SERG1980]

шаг=label2.top-Label1.top
Следующий Label:=Нижний Label.Top+шаг

[Airou]

Спасибо открыли истину), я имею ввиду как найти нижний лейбл (его Name), а шаг мы там уже присвоим).

[SERG1980]

procedure TForm2.Button1Click(Sender: TObject);
var i,top,left,shag:integer;
L:TLabel;

begin
shag:=0;
for i := 0 to ComponentCount - 1 do
if Components[i] is TLabel then
begin
if shag=0 then shag:=shag-(Components[i] as TLabel).Top
else if shag<0 then shag:=shag+(Components[i] as TLabel).Top;
left:=(Components[i] as TLabel).Left;
top:=(Components[i] as TLabel).Top;
end;
L:=TLabel.Create(form2);
L.Parent:=form2;
L.Left:=form2.Label1.Left;
L.Top:=top+shag;
L.Caption:='Мой Лабел';
end;

[Airou]

Большое спасибо.