Здравствуйте marconi8, Вы писали:

M>просто как грамотно написать сикл который будет гнаться до последнего компонента класса например tlabel на текущей форме

var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    with Components[I] do ...

просто как грамотно написать сикл который будет гнаться до последнего компонента класса например tlabel на текущей форме

просто хочю создать массив с именами компонентов выбранного мною класса

ккак обратиться к максимальному количеству компонентов на форме класса T?????