procedure form1.onkeypressStringGrid1; var a,b,c,d,e,f:integer; begin stringgrid2.cells[a,b]:=floattostr(strtofloat(stringgrid1.cells[c,d])+strtofloat(stringgrid1.cells[e,f])); end;