[Rosenkrantz]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ControlCount - 1 do
    ListBox1.Items.Add(Controls[i].Name + ': ' + Controls[i].ClassName);
end;