Alles klar, vielen Dank,
habe den Destructor geändert und es so gemacht:
Delphi-Quellcode:
constructor TLivetrack.create(
const CacheDirectory :
String;
const FTPHost :
string;
const FTPDirectory :
string;
const FTPLoginName :
string;
const FTPPassword :
string;
const HTTPUrl :
String;
const FileName :
String;
const VID :
string);
begin
inherited create;
self.FFTP := TFTP.Create(
nil);
self.FHTTP := THTTP.Create(
nil);
// Setzen der Parameter für HTTP und FTP
end;
// Ende Constructor
////////////////////////////////////////////////////////////////////////////////
{Destructor}
destructor TLivetrack.destroy;
begin
self.FFTP.Free;
self.FHTTP.free;
inherited free;
end;
// Ende Destructor
Somit sollte es beim freigeben keine Probleme geben oder?