PageControl , Ereignis wenn neue TabSheet angeklickt wurde

[shareholder]

Bei folgendem Code tritt eine AV (Access Violation) auf.

Delphi-Quellcode:

procedure TMainForm.PageControl1Chang(ing/e)(Sender: TObject;
  var AllowChange: Boolean);
begin
  // Funktion zum Löschen der ListView;
  LoeschenLV;
end;

Wie würdet Ihr das anstellen ?

edit: Das Ereignis soll für alle TabSheets sein!