Delphi 6 - Creare + schede di un tab

[FinalFantasy]

Ho creato questa procedura

procedure NewSheet();
  var NewTabSheet: TTabSheet;
begin
  NewTabSheet := TTabSheet.Create(Self);
  NewTabSheet.Caption := 'Nuova pagina';
  NewTabSheet.PageControl := APageControl;
end;

Mi da questo errore: [Error] frmprincipale.pas(57): Undeclared identifier: 'Self'