okay Freundin hat mir den Quelltext jetzt gesendet.
sie hat folgendes gemacht.
Code:
var
FormAL: TFormAL;
zaehler: integer;
implementation
uses UnitStart;
{$R *.dfm}
procedure TFormAL.Button2Click(Sender: TObject);
begin
formstart.show;
end;
procedure TFormAL.Image15Click(Sender: TObject);
begin
image15.visible:= false;
end;
.
. {die restlichen karten}
.
procedure TFormAL.FormCreate(Sender: TObject);
begin
If zaehler > 1 then
Zaehler := 0;
end;
end.