Отправка текста в чужое окно через PostMessage

for I:=1 to Length(MyText) do
begin
if (MyText[I] <> #13) then
PostMessage(Target,WM_CHAR,Word(MyText[I]),0);
 
end;

PostMessage(Target, WM_KEYDOWN, VK_RETURN, 0);

procedure SimulateKeystroke(Key: WideChar);
var
  Input: array[0..1] of TInput;
begin
  FillChar(Input, SizeOf(Input), 0);
  with Input[0] do
    begin
      Itype := INPUT_KEYBOARD;
      with ki do
        begin
          wScan := Word(Key);
          dwFlags := KEYEVENTF_UNICODE;
        end;
    end;
  with Input[1] do
    begin
      Itype := INPUT_KEYBOARD;
      with ki do
        begin
          wScan := Word(Key);
          dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
        end;
    end;
  SendInput(Length(Input), Input[0], SizeOf(TInput));
end;
 
procedure SendKeys(sText: string; iSleep: longint);
var
  iCurChar: integer;
begin
  for iCurChar := 1 to Length(sText) do
    begin
      sleep(iSleep);
      SimulateKeystroke(sText[iCurChar]);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var w:hWnd; i:word; p:string; c:cardinal;
begin
  w:=$251256;
  p:=memo1.Text;
  for i:=1 to length(p)do begin
    setForegroundWindow(handle);
    if(p[i]in[#10])then continue;
    c:=1+MapVirtualKey(ord(p[i]),0)shl 16{+(1 shl 24)};
    if(p[i]in[#13])then begin
      setForegroundWindow(w);
      PostMessage(w,WM_KEYDOWN,ord(p[i]),c);
      sleep(10);
      PostMessage(w,WM_KEYUP,ord(p[i]),c+($C shl 28));
    end else begin
      PostMessage(w,WM_CHAR,ord(p[i]),с);
    end;
    sleep(50);
  end;
end;