Ansonsten mal sowas in der Richtung:
Delphi-Quellcode:
For i := 1 to 20 do begin
Eintrag := (FindComponent('Edit'+IntToStr(i)) as TButton).Text
end;
So brauchst du nicht die Buttons alle hinschreiben.
Müssen halt alle nacheinander Button1, Button2, Button3 usw heißen