function mit TStringList Result

[bundy]

hi DP ,

ich hab mal ne Frage
muss ich wenn ich einen Function habe die als Result eine TStringList hat, diesen Result auch wieder freigeben ?

Delphi-Quellcode:

function TForm1.catchItemXML(ItemNr: string): TstringList;
var
   req : IXMLHTTPRequest;
   XMLStream:TMemoryStream;
   XMLStringData:TStringList;
    EdtUrlText:string;
begin
  try
   XMLStream:=TMemoryStream.Create;
   XMLStringData:=TStringList.Create;
   Result:=TStringList.Create;                      <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  Diesen DA

   req := CoXMLHTTP40.Create;  // Interface erzeugen
   // in EdtURL steht die URL, die heruntergeladen werden soll
   EdtUrlText:='http://eu.wowarmory.com/item-info.xml?i='+ItemNr ;
   req.open('GET', EdtUrlText, False, {Username} EmptyParam, {Passwort} EmptyParam);

   // eigenen Request-Header setzen
   req.setRequestHeader('ApplicationID', 'Test V1.0');

   req.send(EmptyParam);  // Anfrage an Server senden und Antwort abwarten
   // Nutzdaten anzeigen
   XMLStringData.Text := req.responseText;
   XMLStringData.Text:= StringReplace(req.responseText,'UTF-8','ISO-8859-1',[rfReplaceAll]);
   XMLStringData.SaveToStream(XMLStream);
   XMLStream.Seek(0,soBeginning);
   Result.LoadFromStream(XMLStream);
  finally
    XMLStream.Free;
    XMLStringData.Free;
                   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Muss der da .free ? oder habe ich sonst keinen result ?
  end;


end;


lg
bundy