ciao a tutti,
ho un classe derivata da TStringList

codice:
type mia_classe = class (TStringList)
...



procedure mia_classe.Free
var
  FileLog : TextFile;
begin
  
  // prima di liberare la memoria faccio un log  
  AssignFile(FileLog, 'log/mio_log.log');
  
  // vorrei appendere i miei dati ma il compilatore cerca di richiamare
  // il metodo membro di TStringList Append  
  Append(FileLog);

  WriteLn(FileLog, thr_web_msg);
  CloseFile (FileLog);

  // ok vai al metodo del genitore
  inherited;

end;
come ho messo nel commento il compilatore mi dà errore quando cerco di chiamare il metodo Append per appendere i dati al file aperto FileLog, mentre logicamente ReWrite(FileLog) funziona correttamente.
Come faccio a chiamare la funzione Append??

grazie a tutti
sergio