LStrm := TProgressStream.Create(TFileStream(Path_to_file_tranfer, fmOpenRead), soOwned);

      if OpenDialog_Rar.Execute then
      BEGIN
          S := OpenDialog_Rar.FileName;
         
         LStrm := TProgressStream.Create(TFileStream(s, fmOpenRead), soOwned);

procedure TForm1.Button2Click(Sender: TObject);
var
  S, S_N:string;
  LStrm: TProgressStream;
begin
      if OpenDialog_Rar.Execute then
      BEGIN
          S := OpenDialog_Rar.FileName;
          S_N:=ExtractFileName(OpenDialog_Rar.FileName);
  LStrm := TProgressStream.Create(TFileStream.Create(s, fmOpenRead), 264 ,soOwned);
    Table1.Edit;
  try
      LStrm.OnProgress := Progress_Main;
      TBlobField(DataSource1.DataSet.FieldByName('DXF_SAKAS')).LoadFromFile(S);
  finally
    LStrm.Free;
  end;

       DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString:=S_N;
    Table1.Post;
    END;
end;


procedure TForm1.Progress_Main(Sender: TObject);
begin
     Label_TIME.Caption:=TimeToStr(SysUtils.Time);
     Panel_Flash1.SetError('ÑÒÐÎÊÀ ÊÎÏÈÐÓÅÒÑß, ÆÄÈÒÅ: '+Label_TIME.Caption,cf_Message);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  S, S_N:string;
  LStrm: TProgressStream;
  FileStream:TStream;
begin
      if OpenDialog_Rar.Execute then
      BEGIN
          S := OpenDialog_Rar.FileName;
          S_N:=ExtractFileName(OpenDialog_Rar.FileName);
      FileStream:= TFileStream.Create(s, fmOpenRead);
      LStrm := TProgressStream.Create(FileStream, 1024 ,soOwned);

    Table1.Edit;
  try
      LStrm.OnProgress := Progress_Main;
      TBlobField(DataSource1.DataSet.FieldByName('DXF_SAKAS')).LoadFromStream(FileStream);
//      Panel_Flash1.SetError('ÑÒÐÎÊÀ ÊÎÏÈÐÓÅÒÑß, ÆÄÈÒÅ: '+Label_TIME.Caption,cf_Message);
  finally
    LStrm.Free;
  end;

       DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString:=S_N;
    Table1.Post;
    END;
end;


procedure TForm1.Progress_Main(Sender: TObject);
begin
    // Label_TIME.Caption:=TimeToStr(SysUtils.Time);
     Panel_Flash1.SetError('ÑÒÐÎÊÀ ÊÎÏÈÐÓÅÒÑß, ÆÄÈÒÅ: '+Label_TIME.Caption,cf_Message);
end;

Но категорически не заходит в Progress_Main.
Скорее всего я его неправильно организовал.
Кто знает как  LStrm.OnProgress описать правильно.

  TStreamProgressEvent = procedure(Sender: TObject;
    Percentage: Single) of object;

  TProgressFileStream = class(TFileStream)
  private
    FOnProgress: TStreamProgressEvent;
    FProcessed: Int64;
    FSize: Int64;
  public
    procedure InitProgressCounter(ASize: Int64);
    function Read(var Buffer; Count: Integer): Integer; override;
    function Write(const Buffer; Count: Integer): Integer; override;
    property OnProgress: TStreamProgressEvent read FOnProgress
      write FOnProgress;
  end;


...

procedure TProgressFileStream.InitProgressCounter(ASize: Int64);
begin
  FProcessed := 0;
  if ASize <= 0 then
    FSize := 1
  else
    FSize := ASize;
  if Assigned(FOnProgress) then
    FOnProgress(Self, 0);
end;

function TProgressFileStream.Read(var Buffer; Count: Integer): Integer;
begin
  Result := inherited Read(Buffer, Count);
  Inc(FProcessed, Result);
  if Assigned(FOnProgress) then
    FOnProgress(Self, FProcessed / FSize);
end;

function TProgressFileStream.Write(const Buffer; Count: Integer): Integer;
begin
  Result := inherited Write(Buffer, Count);
  Inc(FProcessed, Result);
  if Assigned(FOnProgress) then
    FOnProgress(Self, FProcessed / FSize);
end;


// В Form...
  StringGrid_rar: TStringGrid
  ProgressBar:TProgressBar;
  procedure StreamProgress(Sender: TObject; Percentage: Single);

...
procedure TForm1.StreamProgress(Sender: TObject; Percentage: Single);
begin
  ProgressBar.Position := Round(Percentage * ProgressBar.Max);
end;


// Реализация чтения и записи:

// Загружаем из файл в поле Blob
procedure TForm1.Button2Click(Sender: TObject);
var
  S, S_N:string;

  Stream: TProgressFileStream;
begin
      if OpenDialog_Rar.Execute then
      BEGIN
          S := OpenDialog_Rar.FileName;
          S_N:=ExtractFileName(OpenDialog_Rar.FileName);
    Table1.Edit;
          Stream := TProgressFileStream.Create(S, fmOpenRead);
  try
    Stream.OnProgress := StreamProgress;
    Stream.InitProgressCounter(Stream.Size);

      TBlobField(DataSource1.DataSet.FieldByName('DXF_SAKAS')).LoadFromStream(Stream);
  finally
       Stream.InitProgressCounter(Stream.Size);
       Stream.Free;
       DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString:=S_N;
  end;

    Table1.Post;
    if DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString<>'' then
    begin
        StringGrid_rar.Cells[0,1] :='1';
        StringGrid_rar.Cells[1,1] :=DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString;
    end;

    END;
end;


// Пишем из поля Blob в папку \File_BlobWrite\
procedure TForm1.Button300Click(Sender: TObject);
var
 S, S_N:string;
 i:integer;
 a,b: PChar;

begin
   if DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString<>'' then
   begin
       S_N := DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString;

                                                
    S := FORM_GLOBAL_FILE_PATH_DBase.MString;
    i:=Pos('2',S);
    if i<>0 then
       Delete(S,i,2);   
       TBlobField(DataSource1.DataSet.FieldByName('DXF_SAKAS')).SaveToFile(S+'\File_BlobWrite\'+S_N);
       Panel_Flash1.SetError('Файл извлечён ',cf_Message);
    begin
    a := Pchar('E:\PETROVICH_CYBD\File_BlobWrite\'+S_N);
    b := Pchar('E:\PETROVICH_CYBD\File_BlobWrite\');
    ShellExecute(0, 'open', 'winrar.exe', pchar('x -y '+a+' '+b), nil, SW_show);
    end;
   end
   else
      showmessage('В этой строке файлы не прикреплены!!!');
end;