Random Probelm

[Crazymodder]

So hi habe wieder ein Problem und hoffe hier auf Hilfe.
Ich möchte folgendes erreichen:
Das Programm soll immer random buchstaben ausgeben!
Lösung:
Ich habe einen Timer genommen der jede Minute "zuschlägt".

Delphi-Quellcode:

procedure Timer.....
begin
Randomize;
Zufall := random (51) + 1;
if Zufall = 1 then
Keybd_Event(ord('A),0,0,0);
if Zufall = 2 then 
Keybd_Event(ord('B'),0,0,0);
....... usw.
end;

So also er soll ebend die Buchstaben immer im random ausgeben cool wäre noch wenn ihr mir erklären könnten wie ich den timer auch noch über random "steuern" kann. Also in ner zeitspanner von 1 sekunde bis 3 min.