[AleD]

Какой версии делфи? В 2009 подобного не было замечено, вообще если хочешь обработать код в OnActivate единожды то используй это:

Код:

procedure TForm1.FormActivate(Sender: TObject);
begin
  if(Tag=0)
  begin
    //тут чо надо делаеш
    Tag := 1;
  end;
end;

ну и код обработается лишь при первой активации