String to Key Integer? (fast fertig)

[k4ni]

Das thema hab ich ja total vergessen danke.
Also da ich es ja nicht mit keybd_event machen will sondern mit PostMesagge ist das mein ergebnis:

Delphi-Quellcode:

procedure SendText(AText: String);
var lCount     : Integer;
    lScanCode  : Smallint;
    h          : HWND;
begin
h := FindWindow('MapleStoryClass', nil);
for lCount := 1 To Length(AText) Do
  begin
    lScanCode := VkKeyScan(AText[lCount]);
    PostMessageA(h, WM_KeyDown, lScanCode, 0);
    PostMessageA(h, WM_KeyUp, lScanCode, 0);
  end;
end;

Muss ich allerdings noch testen.

Edit: Wieso Sendet er jeden key 2 mal damit?