[Pyro]

PHP код:

iii := 3;
jjj := 4;
for i := 0 to iii-1 do  
  for j := 0 to jjj-1 do  
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, StrtoInt(Memo2.Lines[j])-1];