Hoi,
so wie ich das sehe ist dein Beispiel ideal für den Einsatz von Arrays:
Delphi-Quellcode:
var
i : integer;
deinarray: Array[1..10] of String;
begin
for i:=1 to 10 do
deinarray[i]:= tEdit(FindComponent ('Edit'+IntToStr(i))).text;
end;
eventuelle
deinarray als Global Variable.