procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    canclose := false;
end;