[Vayrus]

Проверить не могу, но поробуй так:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
 K: Cardinal;
begin
 CanClose := False;
 C           := Handle;
 ShowWindow(C, SW_MINIMIZE);
end;