Fórum componentes que estam no form em run-time. #283084

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=0;
ListBox1.Clear;
ListBox2.Clear;
while i <= Form1.Componentcount-1 do
  begin
   if  ListBox1.Items.IndexOf(Form1.Components[i].ClassName) < 0 Then
     begin
      listBox1.Items.Add(Form1.Components[i].ClassName);
       ListBox1.Items.Add(´´);
     end;
    ListBox2.Items.Add(Form1.components[i].Name);
    ListBox2.Items.Add(´´);
   i:=i+1;
  end
end;