Procedure TReports.Report2DBF(OutFile:Integer);
Var
   TempStr, TempStr1:String;
   i, j:Integer;
Begin
   // заголовок
   TempStr:=Chr( 3 ); // Foxpro без мэмо - полей
   TempStr:=TempStr + Chr( 03 ) + Chr( 04 ) + Chr( 01 ); // год + месяц + число последней модификации

   //  кол-во записей
   TempStr:=TempStr + Int2Str(O_Count.Field( 0 ),  4 );

   // позиция  1 -й записи
   TempStr:=TempStr + Int2Str( 32  + O_Report.FieldCount *  32  +  1 ,  2 );

   //   длина каждой записи
   TempStr:=TempStr + Int2Str(O_Report.FieldCount *  250  +  1 ,  2 );

   // зарезервированы
   for i:= 1  to  16  do
      TempStr:=TempStr + Chr( 0 );

   // нет CDX
   TempStr:=TempStr + Chr( 0 );

   // зарезервированы
   for i:= 1  to  3  do
      TempStr:=TempStr + Chr( 0 );

   // описания полей
   For j:= 0  To O_Report.FieldCount -  1  Do Begin
      // имя
      TempStr1:='N' + IntToStr(j +  1 );
      While Length(TempStr1) <  10  Do
         TempStr1:=TempStr1 + Chr( 0 );
      // тип
      TempStr1:=TempStr1 + CHR( 0 ) + 'C';
      //положение внутри записи
      TempStr1:=TempStr1 + Int2Str(j *  250  +  1 ,  4 );
      // длина
      TempStr1:=TempStr1 + CHR( 250 );
      // зарезервированы
      While Length(TempStr1) <  32  Do
         TempStr1:=TempStr1 + Chr( 0 );
      TempStr:=TempStr + TempStr1;
   End;
   TempStr:=TempStr + Chr( 13 );

   FileWrite(OutFile, TempStr[ 1 ], Length(TempStr));
   While Not O_Report.Eof Do Begin
      ProgressBar1.Position:=ProgressBar1.Position +  1 ;
      Application.ProcessMessages;
      TempStr:=' ';
      For i:= 0  To O_Report.FieldCount -  1  Do Begin
         TempStr1:=WinToDos(O_Report.Fields[i].AsString);
         While Length(TempStr1) <  250  Do
            TempStr1:=TempStr1 + ' ';
         TempStr:=TempStr + TempStr1;
      End;
      FileWrite(OutFile, TempStr[ 1 ], Length(TempStr));
      O_Report.Next;
   End;
   TempStr:=Chr( 26 );
   FileWrite(OutFile, TempStr[ 1 ], Length(TempStr));
End;

Function TReports.Int2Str(I, Num:Integer):String;
Begin
   Result:=Chr(i mod  256 );
   Num:=Num -  1 ;
   While Num >  0  Do Begin
      i:=Round(Int((i - (i mod  256 )) /  256 ));
      Result:=Result + Chr(i mod  256 );
      Num:=Num -  1 ;
   End;
End;