zufällgie Karte laden

[Evian]

öhm ich hab mir jetzt nicht alles durchgelesen, was die anderen so geschrieben haben, aber auf die schnelle würde ich es so machen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
VAR
  path : STRING;
begin
  repeat
    path := extractfilepath(application.ExeName)+'Karten\'+inttostr(random(38)+11)+'.bmp';
    until fileexists(path);
  image2.Picture.LoadFromFile(path);
end;

Vorher solltest Du noch den Zufallsgenerator per randomize; initialisieren.
Also z.B. im onCreate Event, oder so. (so meinte zumindest immer mein Großvater)

gruß

Evian

EDIT:

oder hier noch mal als Einzeiler ohne Schleife:
image2.Picture.LoadFromFile(extractfilepath(application.ExeName)+'Karten\'+inttostr(random(4)+1)+inttostr(random(8)+1)+'.bmp');