[Winny]

Кликаешь по полю ввода мышкой программно, потом используешь этот код:

Код:

procedure TForm1.SetKey(Key:Integer);
begin
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

Использование процедуры - SetKey(код клавиши). Код клавиши можно узнать этим кодом:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ShowMessage(IntToStr(Key));f
end;

end.