Captions aller Komponenten in ein Memo-Feld schreiben

[Primus]

Hallo,

ich suche nach einer Möglichkeit alle Captions der Komponenten in
meiner Form in ein Memo-Feld zu schreiben. Aber Irgendwie bekomme ich
das nicht hin.

Folgendes habe ich schon versucht:

Delphi-Quellcode:

var 
  i: integer; 
  PropInfo: PPropInfo; 
  Component: TComponent; 
begin 
  for i := 0 to ComponentCount - 1 do 
  begin 
    Component := Components[i]; 
      PropInfo := GetPropInfo(Component.ClassInfo, 'Caption'); 
  end; 
end;

Danke schon mal,

Primus