[delphihelp]

Нужно скопировать текст из stringgrid в edit. В каждой ячейке stringgrid находится по одному символу. Размер stringgrid постоянно разный.
У меня не записывается последняя строчка из stringgrid в edit. В чем проблема не пойму.

Код:

for y := 0 to StringGrid1.RowCount do begin
for x := 0 to StringGrid1.ColCount do begin
txt:= txt+(StringGrid1.Cells[x,y]);
Edit1.text:=(txt);

А при занесении наоборот из edit d stringgrid не записывается последняя буква

Код:

m:=strtoint(edit1.text);//например =6
s:=edit2.Text;
for i:=0 to length(s) do
  StringGrid1.Cells[i mod m,i div m]:=s[i+1];

помогите пожалуйста.