Captions aller Komponenten in ein Memo-Feld schreiben

[CalganX]

SourceCode ungetestet, dürfte aber funktionieren:

Delphi-Quellcode:

var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount do begin
    Memo1.Lines.Add( Form1.Components[i].Caption );
  end;
end;

Chris