[icWasya]

во первых

Код:

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

во вторых

Код:

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