Speicherzugriffsfehler bei Freigabe vom Frame

[Udontknow]

Ähm, war das jetzt ein Ja oder ein Nein?

Edit: Hier mal der Code, mit dem ich ein komplettes Tabsheet verwerfe. PGC_Consoles ist übrigens die PageControl, die die einzelnen Tabsheets mit den Frames beinhaltet. Der Button mit diesem Event liegt aber eben nicht auf den Tabsheets, sondern separat ausserhalb der Pagecontrol.

Delphi-Quellcode:

procedure TFRM_Main.BTN_CloseConsoleClick(Sender: TObject);
var OldPageIndex:Integer;
begin
  if PGC_Consoles.ActivePage=NIL then
    exit;

  if MessageDlg('Die Konsole wird geschlossen, sämtlicher dort eingegebene SQL-Code geht verloren. Fortfahren?',mtConfirmation,[mbOk,mbCancel],0)=mrOk then
  begin
    OldPageIndex:=PGC_Consoles.ActivePageIndex;
    PGC_Consoles.ActivePage.Free;
    if OldPageIndex>0 then
      PGC_Consoles.ActivePageIndex:=OldPageIndex-1;
  end;
end;