Tastendruck simluieren mit variable ?

[k4ni]

also dann sollte das hier:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var current2: Char;
begin
current2 :=  char(Ord(current));
if current > 999 then begin
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end
else
if current > 99 then begin
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end
else
if current > 9 then begin
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end
else
if current >= 0 then
begin
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord('0'), 0, 0, 0);
  keybd_event(Ord(current2), 0, 0, 0);
  keybd_Event(VK_RETURN, 0, 0, 0);
  Current := current + 1;
end;
end;

eigentlich so aufzählen:
0001
0002
0003
0004
..
0010
0011
...bis unendlich (bis jetzt)

Doch irgendwie tut es das nicht xD, wieso?