Kopf oder Zahl

[Klaus01]

Grundlagen!

Delphi-Quellcode:

procedure TForm1.BMuenzewerfenClick(Sender: TObject);
begin
//zufällige Operation
  operation := random(2) + 1;
  case operation of
    1 : begin
          LKopf.Caption := 'Kopf';
          // Bild laden
        end;
    2 : begin
          LKopf.Caption := 'Zahl';
          // anderes Bild laden
        end;
  end;
end;