String grid - cos mi tu nie gra

witam

dlaczego petla wykonujac sie 6 razy powoduje wypisanie wyniku
w memo w postaci 6 takich samych liczb
np.: 3,3,3,3,3,3 lub 48,48,48,48,48,48 zamiast losowo wybranych
grd to stringgrid

 var k,c,r:byte;
begin
 c:=grd.Col;
 r:=grd.Row;

 randomize;

    for k:=1 to 6 do begin
         grd.Col:=randomrange(1,7);
         grd.Row:=randomrange(1,7);
         memo1.Lines.Add(grd.Cells[c,r]);
        end;
    memo1.Lines.Append('');
end;

memo1.Lines.Add(grd.Cells[c,r]);

c to jest grd.Col
a r to jest grd.row

czyli w petli on bedzie wsawial ciagle wartosc komorki, ktora byla zaznaczona. Zrobiles blad. Powinno byc
memo1.Lines.Add(grd.Cells[grd.Col, grd.row]);

dzieki, faktycznie zrobilem byka [wstyd]

dzieki, faktycznie zrobilem byka [wstyd]

I jeszcze jedna wskazówka. RANDOMIZE musi być wywoływane tylko RAZ podczas działania programu.