Edity i Liczby

Heja!
Mam taki kod do losowania liczb, przykładowo 6 liczb: Te liczby przedstawiane są w jednym Edicie. Chciałem zrobić tak, aby każda liczba była przedstawiana w osobnym Edicie, czyli od Edit1 do Edit6. Pomóżcie mi. Z góry dziękuję za pomoc :)

procedure TForm1.Button1Click(Sender: TObject);

var wyniki:array[1..6] of byte;i,j,liczba:byte;
dawaj:boolean;
begin
for i:=1 to strtoint(edit2.text) do begin
  dawaj:=false;
  while not dawaj do begin
   dawaj:=true;
   liczba:=random(80)+1;
   if i>1 then
    for j:=1 to i-1 do if wyniki[j]=liczba then dawaj:=false;
  end;
  wyniki[i]:=liczba;
end;
Edit1.Text:=IntToStr(wyniki[1]);
for i:=2 to strtoint(edit2.text)do Edit1.Text:=Edit1.Text+ ', '+IntToStr(wyniki[i]);

if edit2.Text='0' then edit1.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

Umieść te edity w tablicy

TablicaEditow : array of TEdit

i w miejsce Edit1.Text:=IntToStr(wyniki[i]);

 wpisz <code class="delphi">TablicaEditow[i] := IntToStr(wyniki[i]);

No zrobiłem tak:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
TablicaEditow : array of TEdit;
wyniki:array[1..6] of byte;i,j,liczba:byte;
dawaj:boolean;

begin
for i:=1 to strtoint(edit8.text) do begin
  dawaj:=false;
  while not dawaj do begin
   dawaj:=true;
   liczba:=random(49)+1;
   if i>1 then
    for j:=1 to i-1 do if wyniki[j]=liczba then dawaj:=false;
  end;
  wyniki[i]:=liczba;
  end;
TablicaEditow[i] := IntToStr(wyniki[i]);
for i:=2 to strtoint(edit8.text)do Edit7.Text:=Edit7.Text+ ', '+IntToStr(wyniki[i]);

if edit8.Text='0' then edit7.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

Ale wyskakuje błąd na linii:

TablicaEditow[i] := IntToStr(wyniki[i]);

o treści:
[Error] Unit1.pas(54): Incompatible types: 'TEdit' and 'String'

tyle razy to było na forum... findcomponent + f1