Bildschirmtastatur Fehler, aber wo???

[XXcD]

Hallo,
ich bastel gerade eine kleine Bildschirmtastatur.
Da es ja auch ziemlich viele Tasten sind, wollte ich jetzt einfach von dem Button den ich klicke die Caption nehmen und senden.

Also ein Button wo "E" draufsteht soll dann auch "E" gesendet werden.


Ich versuche es gerade so, aber da funktioniert garnicht.

Delphi-Quellcode:

var
BtnCaption: TCaption;
...

BtnCaption:=TButton(Sender).Caption;
windows.SetForegroundWindow(hForeground);
keybd_event( Cardinal(BtnCaption), MapVirtualKey( Cardinal(BtnCaption), 0 ), 0, 0 );
keybd_event( Cardinal(BtnCaption), MapVirtualKey( Cardinal(BtnCaption), 0 ), KEYEVENTF_KEYUP, 0 );

...
...
procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
hForeground := windows.GetForegroundWindow;
end;

Wo liegt denn da der Fehler?