à la excel - gleichzeit in grid und edit control schreiben

[heri]

der folgende Codeschnippsel funktioniert zwar - aber es geht bestimmt besser?

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
  AHandle: HWnd;
  sBuf: string;
  bDoSendMessage: Boolean;
begin

  AHandle := edit1.Handle;
  bDoSendMessage := False;

  sBuf := edit1.Text;

  if Key = char(vk_Back) then
  begin

    delete(sBuf,length(sBuf),1);

    bDoSendMessage := True;

  end
  else
  if ord(key)>=vk_Space then
  begin

    sBuf := sBuf + Key;

    bDoSendMessage := True;

  end;

  if bDoSendMessage then
     SendMessage(AHandle, WM_SETTEXT, 0, Integer(PChar(sBuf)));


end;