procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);
begin try
if not job_update then begin
   Action:=caFree;
   exit;
end;
except end;End;