Какой версии делфи? В 2009 подобного не было замечено, вообще если хочешь обработать код в OnActivate единожды то используй это:
Код:
procedure TForm1.FormActivate(Sender: TObject);
begin
if(Tag=0)
begin
//тут чо надо делаеш
Tag := 1;
end;
end;
ну и код обработается лишь при первой активации