игра

[studentkavke]

смысл игры в следующем:
запомнить цвета кругов, в течении нескольких секунд круги превратятся в белые. необходимо закрасить круги в исходные цвета. как сравнить исходные цвета с новымИ??????
var
Form1: TForm1;
i:integer;
z:TColor;
implementation
var
a:array [1..7] of TShape;
zapomni:array [1..7] of TColor;


j,k:integer;
{$R *.dfm}
procedure TForm1.zakras (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Sender is TShape then (sender as TShape).Brush.Color:=z;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=1 to 7 do begin
a[i].Brush.Color:=clwhite ;
end;
timer1.Enabled:=false;
zapomni[i]:=proverka[i]
end;
procedure TForm1.Button1Click(Sender: TObject);
const
color:array [1..3] of TColor=(clred,clgreen,clblue);


begin
image1.Visible:=false;
image2.Visible:=false;
for i:=1 to 7 do

begin
a[i]:=TShape.Create(self);
with a[i] do begin
parent:=self;
Shape:=stcircle;
Left:=i*70+100;
Height:=150;
randomize;
k:=random(3)+1;
Brush.Color:=color[k] ;
zapomni[i]:=color[k];

OnMouseDown:=zakras;
end;end;
timer1.Enabled:=true;
proverka[i]:=color[k];
end;