1:
2:
3:
4:
5:
6:

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    SendMessage(Form2.Handle, WM_SYSCOMMAND, $F012, 0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
with Tmain.Create(Self) do
  try
    ShowModal;
  finally
    Free;
end;
if timer1.interval=10000 then
  titel.close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if Button = mbLeft then
     begin
          ReleaseCapture;

          Perform(WM_SYSCOMMAND,$F012, 0);
     end; 
end;