string in ein beliebiges fenster schreiben

[fadz]

obwohl, wo isn hier der kleine fehler?

Delphi-Quellcode:

var
FocusHWnd: HWND;
WndText: String;
begin
wndtext:='hallo';
FocusHWnd := GetFocus;

SendMessage(FocusHWnd, WM_SETTEXT, Length(WndText), LPARAM(PChar(WndText)));