Problem mit auszugebenen String-Komponenten in Delphi

[Ghostwalker]

Also..für das 1. Vorgehen wüßte ich ne Vereinfachung..nämlich das ganze einfach in eine Funktion packen, das dir den String rüberschickt. Das könnte ungefähr so aussehen:

Delphi-Quellcode:

Procedure SendString(Text:String);
var
  i : integer;
begin
  for I := 1 to length(text) do
  begin
    Keybd_Event(Ord(Text[i]),0,0,0);
    Keybd_Event(Ord(Text[i]),0,KEYEVENTF_KEYUP,0);
  end; 
end;

  :
//Aufruf
begin
  SendString('MeinBenutzername');
  SendString('MeinPasswort');
end;