Enviar teclas

[[ArdiIIa]]

Veamos si esto te sirve:

Código Delphi [-]
//Ejemplo de llamada
For I := 0 To Memo1.Lines.Count -1 DO
    Begin
     cTemp := Memo1.Lines[i];
     If cTemp = ''Then Break;
     SendText(cTemp);
    End;

Código Delphi [-]
Procedure TFormMain.SendText( Text : String);
Var J : Integer;
Begin
     For J := 0 to Length(Text) DO
       PostMessage(HandleVentana ,WM_CHAR,Ord( Text[J]),0);
       PostMessage(HandleVentana ,WM_KEYDOWN,VK_RETURN,0);
End;

El sleep lo puede meter donde quieras....