[poli-smen]

Сообщение от SHIFT999

Нет... не срабатывает.

Для начала сделай так и посмотри, что у тебя под каким порядковым номером:

Код:

var
  i: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    for i := 0 to Form1.ComponentCount - 1 do
    begin
      sl.Add(Format('Номер=%d'#9'Компонент="%s"'#9'Имя="%s"',
        [i, Form1.Components[i].ClassName, Form1.Components[i].Name]));
    end;
    ShowMessage(sl.Text);
  finally
    sl.Free;
  end;
end;