Запрещаем случайное закрытие формы.
Код:
procedure Init;
begin
//форма
frm := TForm.Create(nil);
frm.Caption := 'FishBOT '+Name;
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
frm.Width:=570;
frm.Height:=500;
frm.OnClose := @FormClose;
end;
//******************************************************************************
procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;