Delphi sendmessage

[Denever]

procedure TForm1.Timer1Timer(Sender: TObject);
var Text:String;
i:Integer;
begin
  Text:=Combobox1.Text+Memo1.Text;
  if active_handle <> 0 then begin
      SendMessage(active_handle,WM_KEYDOWN,VK_RETURN,0);
      SendMessage(active_handle,WM_KEYUP,VK_RETURN,0);
      for i:=1 to Length(Text) do begin
        sendmessage(active_handle, WM_CHAR, Word(Text[i]), 0);
      end;
      SendMessage(active_handle,WM_KEYDOWN,VK_RETURN,0);
      SendMessage(active_handle,WM_KEYUP,VK_RETURN,0);
  end;
end;

Combobox1.Text:='!';
Memo1.Text:='Работает как улитка даже не знаю почему.';

http://www.youtube.com/watch?v=zHax1qqcoeg
Как можно ускорить отправку текста sendmessage в неактивное окно?