Lave Onclick/MouseDown til tabsheet

Hvis jeg lige har oprettet en tabsheet med denne kode:

var
  TabSheet : TTabSheet;
begin
TabSheet := TTabSheet.Create(Self);
TabSheet.Caption := 'page1';
TabSheet.PageControl := PageControl1;
end;

Så ville jeg gerne have at jeg skulle kunne lave et onclick til tabsheet'et. Men hvordan gør jeg det? Har prøvet med OnMouseDown men kan ikke finde ud af hvor jeg så skal skrive koden den skal gøre.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------