Ошибка загрузки и сохранения файла

      s:=IdHTTP1.Get('http://new.com/files.php');
      listbox1.Items.Text:=s;

   url:string;
   Fstream:TFileStream;
begin
  url:=(sender as timage).TagString;
  try
     FStream := TFileStream.Create(TPath.Combine(TPath.GetDocumentsPath,url),fmCreate);
 
     try
        IdHTTP1.Get('http://new.com/'+url,FStream);
     except
      on E : Exception do
        begin
          showmessage('Ошибка ' +E.Message)
        end;
     end;

list.AddObject('item text', MyLinkedObject);

ListItem.Data['someKeyString'] := 'SomeData';
ListItem.Data['anotherKeyString'] := 18;

   url:string;
   Fstream:TFileStream;
begin
  url:=(sender as timage).TagString;
  try
     FStream := TFileStream.Create(TPath.Combine(TPath.GetDocumentsPath,url),fmCreate);
 
     try
        IdHTTP1.Get('http://new.com/'+url,FStream);
     except
      on E : Exception do
        begin
          showmessage('Ошибка ' +E.Message);
        end;
     end;

     url:=(sender as timage).TagString;
 
     try
 
        memo1.Text:=IdHTTP1.Get('http://new.com/'+url);
        memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath,url));
     except
      on E : Exception do
        begin
          showmessage('Ошибка ' +E.Message);
        end;
     end;

       
memo1.Lines.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath,url));