[ApplicatiOn]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : Integer;
H : Hwnd;
begin
H := FindWindow('окно', 0);
 begin
  For i:=1 to length(Edit1.text) do
  sendmessage(H, wm_char, ord(Edit1.text[i]), 0);
  SendMessage(H, WM_KEYDOWN, vk_return, 0);
  SendMessage(H, WM_KEYUP, vk_return, 0);
end;
end;

Admin: Не забываем пользоваться тегами, иначе последуют санкции!

здесь нужно знать точное окно... а как сделать чтобы он отправлял на любое активное?