>>665
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
　Canclose := false;
　Hide;
end;

でできたっぽいけど、これだと他の手段で終了させようとしたときも隠れるだけで終了しないので、
もう一工夫必要っぽいです
ちなみに本当に終了させたいときは CanClose := true; にすれば終了します