//---------------------------------------------------------------------------
void __fastcall TForm1::AktuellesBlattlschen1Click(TObject *Sender)
{ 
   if ( ppc->PageCount > 1 ) 
   {
     int TabNr = StrToInt(ppc->Pages[ppc->ActivePageIndex]->Hint);
     if (Application->FindComponent("TGrd"+IntToStr(TabNr)))
     {
         delete Grd;    // hier gibt es Probleme. Folgende Fehlermeldung wird ausgegeben.
//***************************************************************************
     //  Acces violation at address 7C928FEA in module 'ntdll.dll'. Write auf address 00000010.
//***************************************************************************

         Grd=NULL;   
         delete pts[TabNr];

         ppc->ActivePageIndex = ppc->PageCount-1;

        int TabNr = StrToInt(ppc->Pages[ppc->ActivePageIndex]->Hint);
        if (Application->FindComponent("TGrd"+IntToStr(TabNr)))
       {
          Komponent=Application->FindComponent("TGrd"+IntToStr(TabNr));
          Grd=((TStringGrid*)Komponent);
          Grd->SetFocus();
       }
     }
   }
}
//---------------------------------------------------------------------------

Meine Frage, wird nicht die auf pts[TabNr] vorhandene Grd ohnehin automatisch freigegeben, wenn delete pts[TabNr] aufgerufen wird? Dann wäre ja delete Grd nicht erforderlich. Selbst bei mehrmaligem hinzufügen und entfernen von Blättern, bei ausgeschaltetem delete Grd, gab es nie Probleme. Sollte jedoch delete Grd erforderlich sein, bitte ich Euch um Rat. Was mache ich da falsch.
Ich wünsche Euch Allen recht frohe und schöne Pfingsten und sage schon jetzt Danke für Antworten und Hinweise.
Gruß Egbert

Da in deinem Quellcode nicht zu sehen ist wie das Grid genau erstellt wird läßt sich dazu nichts absoluten sagen.
Der allgemeine Grundsatz ist : zu jedem new gehört ein delete. Wo kein new da kein delete. Wenn du also das Grid selber nirgendwo mittels new erstellst bist du auch nicht für ein delete verantwortlich.

Bei VCL-Komponenten ergibt sich da noch die Ausnahme : wird der Komponente ein Owner übergeben (meistens mit dem Konstruktor) ist dieser für das Löschen zuständig, auch hier brauchst du dich trotz manuellem new nicht um ein manuelles delete kümmern.
Ich vermute mal anhand des geschilderten Verhaltens das genau das bei dir zutrifft. Denn ein doppeltes delete auf die selbe Instanz (oder besser gesagt Adresse ohne gültige Neubelegung) ist noch schlimmer als gar kein delete.

Nur wenn du wirklich dem Grid gar kein Owner zuweist must du manuell ein delete ausführen. Das ist natürlich zu vermeiden, grad weil ja die VCL dir das alles abnehmen würde.

bis bald
akari

TComponent *Komponent=NULL;  

//---------------------------------------------------------------------------
void __fastcall TForm1::NeuesBlatt(TObject *Sender)
{
  for (int i=0;i<Application->ComponentCount;i++)
  {
    if ( !Application->FindComponent("TGrd"+IntToStr(i)))
    {
       pts[i] = new TTabSheet(this);
       pts[i]->PageControl = ppc;
       pts[i]->Name = AnsiString("pts")+IntToStr(i);
       pts[i]->Caption = "Blatt"+IntToStr(i);
       pts[i]->Hint = IntToStr(i); //
       ppc->ActivePageIndex = i;   //Cursor auf erzeuge Tab setzen

       CreateGrid(i);

       if (ppc->ActivePageIndex != ppc->PageCount-1)
         ppc->ActivePageIndex = ppc->PageCount-1;

       break;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CreateGrid(int i)
{
  TStringGrid *TGrid=new TStringGrid(Application);
  TGrid->Parent = pts[i];
  TGrid->Name = AnsiString("TGrd") + IntToStr(i);
  TGrid->Hint = AnsiString("KeinName.tab"); //speichert den Path eines Tabellenblatts.
  TGrid->Tag  = 0; // 0=keine Änderung , 1=Änderung in Tabelle

  TGrid->Options <<goFixedVertLine <<goFixedHorzLine <<goVertLine <<goHorzLine
                 <<goRowSizing <<goColSizing <<goRowMoving <<goColMoving
                 <<goEditing <<goThumbTracking <<goAlwaysShowEditor
                 <<goDrawFocusSelected <<goTabs;

//   <<goRangeSelect

  TGrid->ShowHint = true; 
  TGrid->Align = alClient;

  TGrid->OnMouseUp   = KompMouseUp;
  TGrid->OnMouseDown = KompMouseDown;

  TGrid->OnKeyDown   = KompKeyDown;
  TGrid->OnKeyPress  = KompKeyPress;
  TGrid->OnKeyUp     = KompKeyUp;
  TGrid->OnDblClick  = KompDblClick;
  TGrid->OnClick     = KompClick;

  TGrid->OnColumnMoved = KompColumnMoved;
  TGrid->OnSelectCell  = KompSelectCell;
  TGrid->OnDrawCell    = KompDrawCell;

  Komponent=TGrid;
  Grd=((TStringGrid*)Komponent);
}
//---------------------------------------------------------------------------

Gruß Egbert

Nun gut du hast doch etwas gemacht das ich mir nicht vorstellen konnte

Application als Owner zu übergeben ist zwar machbar aber auch nicht glücklich. Denn damit werden die Grids zwar ordentlich gelöscht aber erst wenn das Programm selber beendet wird. Selbst wenn es schon lange nicht mehr gebraucht wird. Deshalb solltest du als Owner entweder this (in Membermethoden von Forms zum Beispiel) oder besser noch die direkt übergeordnete Komponente. Das wäre in deinem Fall das TTabSheet. Du bräuchtest für deine CreateGrid-Methode nur um einen entsprechenden Parameter erweitern.

Damit wird sich auch das Suchen des Grids im Application-Objekt erübrigen. Du must es dann im TabSheet suchen.
Allerdings ist auch das nicht viel besser. Schau lieber in die FAQ hier im BCB-Forum in den Abschnitt Komponenten benutzen, dort ist ein Thema zu dynamische Arrays von Komponenten.

bis bald
akari

//1.
 TStringGrid *TGrid=new TstringGrid(((TTabSheet*)Komponent));

//2.
 TStringGrid *TGrid=new TstringGrid(this);

In beiden Fällen wurde ohne Beanstandung mit Alt u.F9 korrekt compiliert. Jedoch wurde beim Programmstart jeweils die Fehlermeldung ausgegeben, dass die Komponente pts0 bereits existiert.

Wie muss es nun in der CreateGrid-Methode korrekt lauten, und wie muss ich den entsprechenden Parameter erweitern.

Gruß Egbert

TStringGrid *TGrid=new TStringGrid(this); 
TGrid->Name = "Grid" + IntToStr(index);

[code]
TStringGrid *TGrid=new TStringGrid(this);
TGrid->Name = "";
[/code]

Edit: Aber du brauchst ihn wohl

for (int i=0;i<this->ComponentCount;i++)
  {
    if ( !this->FindComponent("TGrd"+IntToStr(i)))
    {

auch wenn ich nicht weiß, was du mit diesen beiden Abfragen bezweckst, da du auch den PageCount des PageControl verwenden kannst um einen Index zum Hinzufügen eines Blattes samt Grid zu erhalten

Aber eigentlich war mein Problem die Freigabe der Grid, wenn ich ein beliebiges Blatt lösche. Nun gut, es ist weiter nicht tragisch, da ohnehin alle Grids beim beenden des Programms freigegeben werden. Ansonsten läuft meine Anwendung absolut einwandfrei und zu meiner Zufriedenheit.

Jedenfalls, vielen Dank für Eure Bemühungen und einen schönen Gruß,
Egbert