PageControl-tabsheet-focus

[poterp]

Hallo,
ich habe da ne frage und zwar ich habe auf meine anwendung ein PageControl mit 3 Tabsheet
(Page1 bis Page3)
was ich da möchte ist, wenn ich die Page1 wähle, dann sollte ich eine Nachrichte erhalten zb.:
"Hallo Page1". Ich habe diesen folgenden Code verwendet:

Delphi-Quellcode:

procedure TForm_Auswertung.TabSheet3Enter(Sender: TObject);
begin
   if ((Sender as TPageControl).ActivePage = TabSheet3) then
     begin
   showmessage('hallo tabsheet3');
 end;
end;

aber es passiert nix. hat jemand eine Idee??
grüß
poter