Problem beim mehrfachen Aufrufen einer Funktion mit Random

[Yheeky]

Hi,

ich habe folgendes Problem: Ich möchte für 4 Spieler Karten vergeben. Diese sollen nach dem Zufallsprinzip verteilt werden. Das mache ich folgendermaßen:

Zitat:

procedure TForm1.KartenGeben(Spieler : Integer);
var Farbe, SteinNummer : Integer;
begin
Randomize;

for SteinNummer := 1 to 5 do
begin
Farbe := Random(4);
TImage(FindComponent('Spieler' + IntToStr(Spieler) + 'Stein' + IntToStr(SteinNummer))).Picture.LoadFromFile(Extra ctFilePath(Application.EXEName) + IntToStr(Farbe) + '.bmp');
end;

end;

Das klappt bei einem Spieler auch wunderbar, doch wenn ich danach dieselbe Funktion für einen anderen Spieler aufrufe, erhält dieser genau die selben Karten. Warum? Habe auch versucht, die "Farbe-Variable" vorher wieder auf -1 zu setzen, aber daran lag´s auch nicht. Vielleicht kann mir da ja jemand helfen...

Gruß Yheeky