Externes Edit mit einem Wert besetzten

[bitsetter]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer: AnsiString;
begin
  buffer:= 'Hallo';
  SendMessage({handle}, WM_SETTEXT, 0, Integer(@buffer[1]));
end;