procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then begin StringGrid1.Row := StringGrid1.Row+1; StringGrid1.Cells[1,1] := IntToStr(strtointdef(StringGrid1.Cells[1,2],0)+strtointdef(StringGrid1.Cells[1,3],0)); end;end;