unit u_memorie;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Shape1: TShape;
    Shape10: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Shape10MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape1ChangeBounds(Sender: TObject);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape2ChangeBounds(Sender: TObject);
    procedure Shape2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape7MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape9MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
   p_pink,p_purple,p_lime,p_yellow,p_Aqua,b,gr,ge,l : string;
   n:integer;
implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   shape1.Brush.Color:=$008000FF;
  if p_pink='$008000FF' then
  begin
  label1.caption:='Pink war richtig';
   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;

  end
  else
  begin

   p_pink:='$008000FF';
   n:=n+1;
       label4.caption:=floattostr(n);


  end;

   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;

end;

procedure TForm1.Shape2ChangeBounds(Sender: TObject);
begin

end;

procedure TForm1.Shape10MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   shape10.Brush.Color:=clPurple;
   if p_purple='clPurple' then
  begin
  label1.caption:='Lila war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin


   p_purple:='clPurple';
   n:=n+1;
      label4.caption:=floattostr(n);


  end;


   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;

procedure TForm1.Shape1ChangeBounds(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  n:=0;
     label4.caption:=floattostr(n);
  shape1.enabled:=true;
  shape2.enabled:=true;
  shape3.enabled:=true;
  shape4.enabled:=true;
  shape5.enabled:=true;
  shape6.enabled:=true;
  shape7.enabled:=true;
  shape8.enabled:=true;
  shape9.enabled:=true;
  shape10.enabled:=true;
  p_pink:= 'clSilver';
  p_lime:= 'clSilver';
  p_purple:= 'clSilver';
  p_yellow:= 'clSilver';
  p_Aqua:= 'clSilver';
end;

procedure TForm1.Label4Click(Sender: TObject);
begin

end;

procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  shape2.Brush.Color:=$008000FF;
  if p_pink='$008000FF' then
  begin
  label1.caption:='Pink war richtig';
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end

  else
          begin

           if  (p_pink ='cllime') or (p_pink ='clAqua') or  (p_pink ='clyellow') or (p_pink ='clPurple') or (p_pink='clsilver') then
                 begin
                 label5.caption:=' Da';
                      if   (p_pink= 'cllime') or (p_pink ='clAqua') or  (p_pink ='clyellow') or (p_pink ='clPurple') then

                            begin

                             p_pink:='$008000FF';

                              n:=n+1;
                              label3.caption:='Deine Auswahl war falsch.';
                              label4.caption:=floattostr(n);
                            end
                      else
                           begin
                            if p_pink='clSilver' then
                            p_pink:='$008000FF';

                           end;

                 end;


         end;



   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;

end;



procedure TForm1.Shape3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  shape3.Brush.Color:=clLime;
  if p_lime='clLime' then
     begin
      label1.caption:='Grün war richtig';

      shape1.enabled:=false;
      shape2.enabled:=false;
      shape3.enabled:=false;
      shape4.enabled:=false;
      shape5.enabled:=false;
      shape6.enabled:=false;
      shape7.enabled:=false;
      shape8.enabled:=false;
      shape9.enabled:=false;
      shape10.enabled:=false;
     end
      else
          begin

           if    p_lime ='$008000FF' or p_lime ='clAqua' or  p_lime ='clyellow' or p_lime ='clPurple' or p_lime= 'clsilver' then
                 begin
                  label5.caption:=' Da';
                      if   (p_lime ='$008000FF') or (p_lime ='clAqua') or  (p_lime ='clyellow') or (p_lime ='clPurple') then

                            begin

                             p_lime:='clLime';

                              n:=n+1;
                              label3.caption:='Deine Auswahl war falsch.';
                              label4.caption:=floattostr(n);
                            end
                      else
                           begin
                            if p_lime='clSilver' then
                            p_lime:='clLime';

                           end;

                 end;
           label6.caption:='hier';
           end;
   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;




procedure TForm1.Shape4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  shape4.Brush.Color:=clAqua;
  if p_Aqua='clAqua' then
  begin
  label1.caption:='Blau war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin
   p_Aqua:='clAqua';
   n:=n+1;

  end;
   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;

procedure TForm1.Shape5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  shape5.Brush.Color:=clAqua;
  if p_Aqua='clAqua' then
  begin
  label1.caption:='Blau war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin
   p_Aqua:='clAqua';
   n:=n+1;

  end;
   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;

end;

procedure TForm1.Shape6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    shape6.Brush.Color:=clLime;
    if p_lime='clLime' then
  begin
  label1.caption:='Grün war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin
   p_lime:='clLime';
   n:=n+1;

  end;

   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;

procedure TForm1.Shape7MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   shape7.Brush.Color:=clyellow;
    if p_yellow='clyellow' then
  begin
  label1.caption:='Gelb war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin
   p_yellow:='clyellow';
   n:=n+1;

  end;

   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;

procedure TForm1.Shape8MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   shape8.Brush.Color:=clyellow;
    if p_yellow='clyellow' then
  begin
  label1.caption:='Gelb war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin
   p_yellow:='clyellow';
   n:=n+1;

  end;

   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;

procedure TForm1.Shape9MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   shape9.Brush.Color:=clPurple;
   if p_purple='clPurplee' then
  begin
  label1.caption:='Lila war richtig';

   shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
  end
  else
  begin
   p_purple:='clPurple';
   n:=n+1;

  end;
   if n=2 then
   begin
  shape1.enabled:=false;
  shape2.enabled:=false;
  shape3.enabled:=false;
  shape4.enabled:=false;
  shape5.enabled:=false;
  shape6.enabled:=false;
  shape7.enabled:=false;
  shape8.enabled:=false;
  shape9.enabled:=false;
  shape10.enabled:=false;
   end;
end;

end.