[ApplicatiOn]

Помогите пожалуйста.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : Integer;
H : Hwnd;
begin
H := FindWindow(0, 'Form1');
if (getasynckeystate(VK_INSERT)=-32768) then
 begin
  sendmessage(H, wm_char, ord('A'), 0);
  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;

хочу при нажатии на клавишу Insert, эмулировать в заданном окне клавиши.

Form1 это заголовок окна (в той программе Memo), и при нажатии на Insert он должен был выдать так:

AText
AText
AText

...
до тех пор пока не отпущу Insert.

Но при нажатии на клавишу ничего не происходит. Очень нужна ваша помощь....