Randomize и Image

[Tuman777]

procedure TForm4.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer2.Enabled:=True;
Timer3.Enabled:=True;
Label1.Caption:='5';
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
Label1.Caption:='4';
end;
procedure TForm4.Timer2Timer(Sender: TObject);
begin
Label1.Caption:='3';
end;
procedure TForm4.Timer3Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image1Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image3Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image7Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image8Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image9Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.Image10Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Label1.Caption:='2';
Form5.Label1.Caption:=Label1.Caption;
Form5.ShowModal;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image5.Visible:=False;
Image6.Visible:=False;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image10.Visible:=False;
Close;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
Form4.BorderIcons:=[];
end;
end.

вот скрин моей формы и код того что на ней происходит.
один огромный вопрос - как сделать чтобы имиджи менялись местами, я не могу понять

[Tuman777]

имиджи не пустые, они заполняются картинками програмно