Invalid Pointer TObjectList

[bl3nder]

Hi Leute,

Ich checks einfach nicht wo der Fehler liegen kann:

Ich möchte meine Objekte und Listen alle freigeben, weil sich das Programm sonst extrem aufbläht.

Hier ein Auszug meines Codes:

Delphi-Quellcode:

    FList := TObjectList.Create;
    FCSearch := Model.TComputerSearch.Create;
    FMyCCriteria := Model.TComputerAttributes.Create;

    //...


    FList := FCSearch.DBSearch('vague',FMyCCriteria); // FList wird mit "TComputer"-Objekten befüllt

    I := 0;
    while (I<FList.Count-1) do
      begin
        FMyComputer := Model.TComputer.Create;
        FMyComputer := FList[I] as Model.TComputer;

        // Fill the Grid with the information of the FMyComputer object
        Grid.Cells[0,Grid.RowCount-1] := IntToStr(FMyComputer.GetAttributes.GetID);
        Grid.Cells[1,Grid.RowCount-1] := FMyComputer.GetAttributes.GetName;
        Grid.Cells[2,Grid.RowCount-1] := FMyComputer.GetAttributes.GetComment;
        Grid.Cells[3,Grid.RowCount-1] := FMyComputer.GetAttributes.GetModel;

        Grid.RowCount := Grid.RowCount +1;

        FMyComputer.Free;
        Inc(I);
      end;

  FList.Clear; // UNGÜLTIGE ZEIGEROPERATION 
  FList.Free;  // UNGÜLTIGE ZEIGEROPERATION 

  FCSearch.Free;
  FMyCCriteria.Free;

Das Programm läuft trotz des Fehlers aber den Fehler möchte ich natürlich wegbekommen

Weiß einer Rat ?