[march]

звиняй: по событию onkeyup а не 'press'

Код:

procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  stringgrid2.Cells[0,0]:=floattostr(strtofloat(stringgrid1.cells[0,0])+strtofloat(stringgrid1.cells[0,1]));
end;

иже исходник(без потоков)