Zufall generieren !?!

[fabgo]

ok, ich muss dann noch hinzufügen, dass ich erst vor kurzem mit delphi angefangen habe und mit deinen Begriffen nichts anfangen kann.

Ich kopiere mal meinen Text, vll kann mir dann wer helfen...


procedure TAmpel2.Timer1Timer(Sender: TObject);
begin
if ImAuto1.Left <= 620
then begin
ImAuto1.Left := ImAuto1.Left +1;
Timer1.Interval := 5;
end;
if ImAuto1.Left >= 620
then begin
ImAuto1.Left := -20;
Timer1.Interval := 5;
end
else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174) and (Imgelblinks.Visible = True)
then begin
Timer1.Interval := 25;
end // GENAU AN DIESER STELLE WEIß ICH NICHT WEITER, HIER SOLL DER ZUFALL GENERIERT WERDEN, dass das Interval dann 1 ist...

else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174)and (Imrotlinks.Visible)
then begin
Timer1.Interval := 25;
end;
end;