Memory Programm

[KillerMary]

ich würde euch gern mein Programm zu senden... aber das ich hier leider nicht möglich und Quelltext hab ich eingefügt soweit vorhanden.
passt auf ich zeig euch Screens vom Programm.

das ist das Grundgerüst.
das ist bei jedem Thema mit leicht mittel schwer. und bei mittel und schwer sind es dann jeweils mehr karten.

Quelltext? fast leer, weil nichts funktioniert, aber bitte :

Code:

unit UnitAL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TFormAL = class(TForm)
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Image15Click(Sender: TObject);
    procedure Image16Click(Sender: TObject);
    procedure Image17Click(Sender: TObject);
    procedure Image18Click(Sender: TObject);
    procedure Image19Click(Sender: TObject);
    procedure Image20Click(Sender: TObject);
    procedure Image21Click(Sender: TObject);
    procedure Image22Click(Sender: TObject);
    procedure Image23Click(Sender: TObject);
    procedure Image24Click(Sender: TObject);
    procedure Image25Click(Sender: TObject);
    procedure Image26Click(Sender: TObject);
    procedure Image27Click(Sender: TObject);
    procedure Image28Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

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;

procedure TFormAL.Image16Click(Sender: TObject);
begin
image16.visible:= false;
end;

procedure TFormAL.Image17Click(Sender: TObject);
begin
image17.visible:= false;
end;

procedure TFormAL.Image18Click(Sender: TObject);
begin
image18.visible:= false;
{aufgedeckt:=
vergleicher()     }
end;

procedure TFormAL.Image19Click(Sender: TObject);
begin
image19.visible:= false;
end;

procedure TFormAL.Image20Click(Sender: TObject);
begin
image20.visible:= false;
end;

procedure TFormAL.Image21Click(Sender: TObject);
begin
image21.visible:= false;
end;

procedure TFormAL.Image22Click(Sender: TObject);
begin
image22.visible:= false;
end;

procedure TFormAL.Image23Click(Sender: TObject);
begin
image23.visible:= false;
end;

procedure TFormAL.Image24Click(Sender: TObject);
begin
image24.visible:= false;
end;

procedure TFormAL.Image25Click(Sender: TObject);
begin
image25.visible:= false;
end;

procedure TFormAL.Image26Click(Sender: TObject);
begin
image26.visible:= false;
end;

procedure TFormAL.Image27Click(Sender: TObject);
begin
image27.visible:= false;
end;

procedure TFormAL.Image28Click(Sender: TObject);
begin
image28.visible:= false;
end;

procedure TFormAL.FormCreate(Sender: TObject);
begin
If zaehler > 1 then
Zaehler := 0;
end;

end.