Tastendruck simluieren mit variable ?

[k4ni]

Hallo,

Ich hab ein problem, und zwar:
Ich möchte tastendrücke simluieren, hab danach gesaucht und z.B. das hier gefunen:
  keybd_event(Ord('C'), 0, 0, 0); also schreibt es ein C, doch wie könnte ich es machen damit es schreibt was in der variable "a" steht ?

So hab ich es versucht:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var a: Integer;
begin
Timer1.Enabled := false;
a := StrToInt('2');
  keybd_event(Ord(a), 0, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

Kommt zwar kein fehler aber es schreibt ganz einfach nichts. Was nun?