function TP2KAPI.DownLoadFile(AFileName: string; Asize: integer; AAtr: integer; Adestfile: string; AfrmProgress: TfrmProgress): boolean;
var
  mStream: TStream;
  sAtr: string;

begin
  result:= false;
  sAtr:= IntToStr(AAtr);
  if File_Open(AFileName, sAtr) then
    begin
      if File_Seek(0, 0)
               then begin
                      //read
                      //mStream:=  TStream.Create(Adestfile, fmCreate);//NewReadWriteFileStream(destfile);
                      mStream:=  TFileStream.Create(Adestfile, fmCreate);//mStream:=  NewReadWriteFileStream(Adestfile);
                      AfrmProgress.AdvProgressBar1.Value:= 0;
                      AfrmProgress.AdvProgressBar1.MaxValue:= ASize;
                      AfrmProgress.GradientLabel1.Caption:= Format(p2k_fm_pw_text09, [AFileName]);
                      AfrmProgress.GradientLabel2.Caption:= Format(p2k_fm_pw_text05, [ExtractFileDir(Adestfile)]);
                      //##Application.ProcessMessages;
                      AfrmProgress.Update;
                      try
                        File_Read(AFileName, ASize, mStream, ADestFile, AfrmProgress);
                      finally
                        mStream.Free;
                      end;
                      result:= true;
                    end
               else begin {неудалось найти смещение файла, вернее открыть или прочитать} end;
      File_Close;
    end
    else begin {не удалось открыть файл} end;
end;