du könntest dir die ganzen If Anweisungen sparen indem du den Randombereich auf die
ASCII Zeichen einschränkst..so:
Delphi-Quellcode:
procedure Timer.....
begin
Randomize;
//nur 1mal aufrufen pack das ins OnCreate
Zufall := random (26) + 65;
//Alle Großbuchstaben aus der ASCII-Tabelle von 65 bis 90
Keybd_Event(Zufall, 0, 0, 0);
end;
du kannst das natürlich noch erweitern:
Ascii-Tabelle
Ich hoffe das hilft dir....