Полезные функции

[NLObP]

Запрещаем случайное закрытие формы.

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;