Enviar teclas

[[cHackAll]]

Creo que lo que buscas es el siguiente código:

Código Delphi [-]
procedure SendKeys(Keys: PChar; const milliseconds: Cardinal);
var vk: Cardinal;
begin
 while Keys[0] <> #0 do
  begin
   vk := VkKeyScan(Keys[0]);
   Inc(Cardinal(Keys));
   keybd_event(vk, 0, 0, 0);
   keybd_event(vk, 0, KEYEVENTF_KEYUP, 0);
   Sleep(milliseconds);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetForegroundWindow(FindWindow('notepad', nil));
 SendKeys('hola'+#13, 100);
end;

Espero os sea de utilidad; Saludos!