Keydruck simulieren Ordinal

[ecHo89]

So kann man einzelne Buchstabe simulieren.

keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), 0, 0);
keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), KEYEVENTF_KEYUP, 0); }

Kann man das ganze auch als Schleife realisieren?

p1 := 'Bla';

for i:=1 to 3 do
begin
p2 := p1[i];
keybd_event(Ord(p2), MapVirtualKey(Ord(p2), 0), 0, 0);
keybd_event(Ord(p2), MapVirtualKey(Ord(p2), 0), KEYEVENTF_KEYUP, 0);
end;

Habe viele Sachen wie pchar() und mit Semikolon probiert, aber nichts funktioniert. Jemand ne Idee?

Viele Grüße Malte