Editeinträge einlesen, wie?

[mk979]

Hier mien Programm bis jetzt. Und mein Problem ist halt nun die Umsetzung der Eigabe mit Vergleich der Ausgebe und dem Ergebnisstand. Da komm ich nicht weiter.

procedure TForm1.StartClick(Sender: TObject);

var arr: array[1..49] of integer;
i,k,zahl: integer;
arrZahlen of integer;

begin
Randomize;
for i:=Low(arr) to High(arr) do arr[i]:=i;
for i:=Low(arrZahlen) to High(arrZahlen) do
begin
zahl:=Random(49)+1;
while arr[zahl]=0 do zahl:=Random(49)+1;
arrZahlen[i]:=zahl;
arr[zahl]:=0;
end;

begin
for i:=1 to 6 do
tedit (findcomponent('edit'+inttostr(i))).text:=format(' %3d',[arrzahlen[i]]);
end;
end;

procedure TForm1.EndeClick(Sender: TObject);
begin
application.Terminate;
end;

end.