TPageControl Tabwechsel verhindern, aber wie ?

[khh]

irgendwie hab ich nen Denkfehler


mit :

Delphi-Quellcode:

procedure Tartikelbearbeitenform.ArtikelPageControlChange(Sender: TObject);
begin
 if trim(artbez1edit.text) = '' then
    begin
      ShowMessage('blabla');
      self.artikelpagecontrol.activepage:= seite1TabSheet ;
    end;
end;

möchte ich eine Meldung anzeigen und den aktiven Tab beibehalten.
leider bringt er mir die Message 2mal, deshalb gehe ich maldavon aus, dass ich im falschen Ereignis arbeite?

Was mache ich falsch?

Gruss KH