EStackOverflow в собсвенном классе

[Lesha]

пробуй

const
  Delim = ':';

type
TSFLFile = class(TObject)
    SearchByMD5: Boolean;
    FilesName: string;
    FileMD5: string;
end;

TSFLList = Class(TList)
  private
    TS: TStringList;
    function GetFile(Indx: Integer): TSFLFile;
  public
    constructor Create; //override;
    destructor Destroy; override;
    property Records[Indx: Integer]: TSFLFile read GetFile;
    procedure AddRecordToLV(aSFLFileRec: TSFLFile);
    procedure DeleteRecord(Indx: Integer);
    procedure SaveToFile(aFileName: string);
    function GetSFLFileSearchState(aParam: Boolean): string;
End;

{...}

function TSFLList.GetSFLFileSearchState(aParam: Boolean): string;
begin
  if aParam then Result := 'h' {hash} else Result := 'n'; {name}
end;

procedure TSFLList.AddRecordToLV(aSFLFileRec: TSFLFile);
begin
  ADD(aSFLFileRec);
end;

constructor TSFLList.Create;
begin
  inherited Create;
  TS := TStringList.Create;
end;

procedure TSFLList.DeleteRecord(Indx: Integer);
begin
  Records[Indx].Free; // Освобождение обьекта
  Delete(Indx); // Удаляем из списка
end;

destructor TSFLList.Destroy;
var i: integer;
begin
  for i:=0 to count-1 do Records[i].Free;
  FreeAndNil(TS);
  inherited Destroy;
end;

function TSFLList.GetFile(Indx: Integer): TSFLFile;
begin
  Result := TSFLFile(items[Indx]);
end;

procedure TSFLList.SaveToFile(aFileName: string);
var
  i: Integer;
begin
  for i := Count -1 downto 0 do
  begin
    TS.Add(Records[i].FilesName + Delim +
      GetSFLFileSearchState(Records[i].SearchByMD5) +
      Delim + Records[i].FileMD5);
  end;
  TS.SaveToFile(aFileName);
end;