Код:
m:=strtoint(edit2.text);
shmess:=edit4.Text;
for i:=0 to length(shmess)-1 do
StringGrid1.Cells[i mod m,i div m]:=shmess[i+1];
странно, но одна буква все равно не отображается, которая бала последняя в edit
и сдесь тоже все равно последняя строка не хочет заноситься в stringgrid