maxxiixx

var
i:integer;
my_stream:TMemoryStream;
my_filestrem:TFileStream;
//.........................................

  my_filestrem:= TFileStream.Create(ExtractFilePath(Application.ExeName)+Edit3.Text+'\file.mp4', fmCreate);

  for i := 0 to Memo2.Lines.Count - 1 do
  begin

    my_stream:=TMemoryStream.Create;
    try
      IdHTTP1.Get(Edit5.Text+Memo2.Lines.Strings[i], my_stream);
      my_stream.Position := 0;
      my_filestrem.CopyFrom(my_stream,my_stream.Size);
      //my_stream.SaveToFile(ExtractFilePath(Application.ExeName)+Edit3.Text+'\'+Memo2.Lines.Strings[i]);
    except
    end;
    my_stream.Free;

    Application.ProcessMessages;
  end;
  my_filestrem.Free;