keybd_event + Vereinfachung

[bluescreen25]

Hallo, lässt sich das noch vereinfachen ? Ich möchte gerne die Caption vom Label welche schon das Zeichen ist, direkt einsetzen, jedoch StringToChar oder Ähnliches habe ich nicht gefunden.
So müsste ich alle Zeichen einzeln auflisten, obwohl diese schon in der Caption stecken.

Delphi-Quellcode:

if TLabel(Sender).caption = 'A' then
   begin
     windows.keybd_event(ord('A'), 0, 0, 0);//Beispiel  // Simuliere down
     keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);      // Simuliere up
   end;

MfG bluescreen25