[AD!]

Не мог разобраться с реализацией таймера плагине соорудил следующую конструкцию, вроде работает, но правильно ли? не будет затупов при долгой работе?
также прописываются и другие события)

......
type
  aaa = class(TObject)
  public
  procedure CheckTime(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;

var
FormMain : TForm;
CheckTimer: TTimer;
Msg : TMemo;
...........
.............

function Create_FormMain : TForm;
...........
.......
  Result := TForm.Create(nil);
  TRY
.......
    Result.OnClose := aaa.Create.FormClose;
........
end;


...........
............
//чтобы форма не закрывалась
procedure aaa.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
end;

//событие таймера
procedure aaa.CheckTime(Sender: TObject);
begin
  msg.Lines.Add('test');
end;


procedure OnLoad; stdcall;
begin
  FormMain:=Create_FormMain;
  CheckTimer:=TTimer.Create(Application);
  CheckTimer.OnTimer:=aaa.Create.CheckTime;
  CheckTimer.interval:=2000; //время задержки
  CheckTimer.enabled:=false;
end;

.........

а для чего в проекте используется FastMM4?