Delphi-PRAXiS - Delphi key

HAllo
Ich habe folgendes problem mit Key_events. Ich übergebe meiner funktion einen string und möchte das er ihn so ausgibt (ohne beachtung von shift oder anderen keys).
Aber bis jetzt ist es so das er ein "a" in eine "1" umwandelt und wenn die shift taste gedrückt ist wandelt er ein "A" in ein "a" um.
Wo liegt der Fehler?

Delphi-Quellcode:

			procedure TSer2KeyForm.SendKeys( Keys : String );

Var I : Integer;

begin

  for I := 0 To Length( Keys ) Do

  eegin

    keybd_event( Ord(Keys[I]), MapVirtualKey(Ord(Keys[I]),1), 0, 0 );

    keybd_event( Ord(Keys[I]), MapVirtualKey(Ord(Keys[I]),1), KEYEVENTF_KEYUP, 0 );

    Application.ProcessMessages;

    Sleep( 5 );

  end;

end;