[Scooby_Do]

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Form3.Show;
  Form1.Enabled:= False;
end;