procedure TForm1.Button3Click(Sender: TObject);
var
  FIniFile: TIniFile;
  Strim: TStream;
begin
  IBSQL1.SQL.Clear;
  IBSQL1.SQL.Add('select TP_ID, TP_BLOB from T_TEMPLATES');
  IBSQL1.GoToFirstRecordOnExecute:=True;
  IBSQL1.ExecQuery;
  IBDatabase1.Connected:=True;
while not IBSQL1.Eof do
begin

 with CreateInArchive(CLSID_CFormatZip) do
      begin
      //OpenFile( ****  );   {*TP_ID* + *TP_NAME*+ '.7z'} {IBSQL1.Current.FieldByName('TP_BLOB')}
        TBlobField(IBSQL1.FieldByName('TP_BLOB')).SaveToStream(Strim);
      //OpenStream();
        ExtractTo(Edit2.Text + '1'); //Edit2.Text:= ExtractFileDir (OpenDialog1.FileName)+'\'+Copy(fullFileName,1,3)+Copy(fullFileName,12,Length(fullFileName)-15)+'\';
      end;
IBSQL1.Next;
end;
IBSQL1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  FIniFile: TIniFile;
  Strim:  TFileStream;
  Index: Integer;
begin
  IBSQL1.SQL.Clear;
  IBSQL1.SQL.Add('select TP_ID, TP_BLOB from T_TEMPLATES');
  IBSQL1.GoToFirstRecordOnExecute:=True;
  IBSQL1.ExecQuery;
  IBDatabase1.Connected:=True;
while not IBSQL1.Eof do
 Index := 1;
begin
    Strim.Position := 0;
    Strim:= TFileStream.Create(IntToStr(Index) + '.7z', fmCreate) ;
    IBSQL1.FieldByName('TP_BLOB').SaveToStream(Strim);
    inc(Index);
    Next;
      //with CreateInArchive(CLSID_CFormatZip) do
      //begin
      //OpenFile( ****  );
      {*TP_ID* + *TP_NAME*+ '.7z'} {IBSQL1.Current.FieldByName('TP_BLOB')}
      //OpenStream();
      //ExtractTo(Edit2.Text + '1'); //Edit2.Text:= ExtractFileDir (OpenDialog1.FileName)+'\'+Copy(fullFileName,1,3)+Copy(fullFileName,12,Length(fullFileName)-15)+'\';
      //end;
IBSQL1.Next;
end;
IBSQL1.Close;
end;

var SaveFile: TFileStream;
    Index: Integer;
begin
    IBSQL1.SQL.Clear;
    IBSQL1.SQL.Add('select TP_ID, TP_BLOB from T_TEMPLATES');
    IBSQL1.GoToFirstRecordOnExecute:=True;
    IBSQL1.ExecQuery;
    IBDatabase1.Connected:=True;
  with IBSQL1 do
    begin
      ExecQuery;
      Index := 1;
  while not Eof do
      begin
        SaveFile := TFileStream.Create(IntToStr(Index) + '.7z', fmCreate);
        FieldByName('TP_BLOB').SaveToStream(SaveFile);
        Next;
        inc(Index);
        SaveFile.Free;
      end;
    Close;
    end;
end;

var SaveFile: TFileStream;
    Index: Integer;
begin
    IBSQL1.SQL.Clear;    //очистка
    IBSQL1.SQL.Add('select TP_ID, TP_BLOB from T_TEMPLATES');     //выставления запроса также также есть уже такойже запрос IBQuery1, но по принцыпу слишком много фалов накружает пк
    IBSQL1.GoToFirstRecordOnExecute:=True; //   запрос первой записи после использую Next
    IBSQL1.ExecQuery; //несовсем понял для чего он
    IBDatabase1.Connected:=True; //подключение базе IBSQL1 связон с им
  with IBSQL1 do    // дальше для меня лес
    begin
      Index := 1;
  while not Eof do
      begin
        SaveFile := TFileStream.Create(IntToStr(Index) + '.7z', fmCreate);
        FieldByName('TP_BLOB').SaveToStream(SaveFile);
        Next;
        inc(Index);
        SaveFile.Free;
      end;
    Close;
    end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  fullFileName : string;
begin
   IBDatabase1.Connected:=False;
   try
    if OpenDialog1.Execute then
     begin
      Edit1.Text:='localhost:'+OpenDialog1.FileName;
      fullFileName:=ExtractFileName(OpenDialog1.FileName);
      Edit2.Text:= ExtractFileDir (OpenDialog1.FileName)+'\'+Copy(fullFileName,1,3)+Copy(fullFileName,12,Length(fullFileName)-15)+'\';
     end;
   except
    on e:Exception do
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   try
    IBDatabase1.DatabaseName:=Edit1.Text;
    IBDatabase1.Connected:=True;
    Application.MessageBox('Ïîäêëþ÷åíèå ïðîøëî óñïåøíî','Âíèìàíèå',MB_OK+MB_ICONINFORMATION);
    IBQuery1.Active:=True;
   except
    on e:Exception do
     Application.MessageBox('Îøèáêà ïîäêëþ÷åíèÿ ê îäíîé èç ÁÄ','Âíèìàíèå',MB_OK+MB_ICONERROR);
   end;
end;

SaveFile := TFileStream.Create(FieldByName('TP_ID').AsString + '_' + FieldByName('TP_TYPE').AsString + '_' + FieldByName('TP_NAME').AsString + '.zip', fmCreate);

begin
	  // Распаковывает файлы
	  with CreateInArchive(CLSID_CFormatZip) do
	   begin
	     OpenFile(ExtractFilePath(            );
	     ExtractTo(ExtractFilePath(           );
	   end;
	end;

procedure TForm1.Button3Click(Sender: TObject);
var SaveFile: TFileStream;
    Index: String;
begin
    IBSQL1.SQL.Clear;    //очистка
    IBSQL1.SQL.Add('select TP_ID, TP_BLOB, TP_TYPE, TP_NAME from T_TEMPLATES');     //выставления запроса также также есть уже такойже запрос IBQuery1, но по принцыпу слишком много фалов накружает пк
    IBSQL1.GoToFirstRecordOnExecute:=True; //   запрос первой записи после использую Next
    IBSQL1.ExecQuery; //несовсем понял для чего он
    IBDatabase1.Connected:=True; //подключение базе IBSQL1 связон с им
  with IBSQL1 do    // дальше для меня лес
    begin
  while not Eof do
      begin
        ForceDirectories(Edit2.Text);
        Index := Edit2.Text + FieldByName('TP_ID').AsString + '_' + FieldByName('TP_TYPE').AsString + '_' + FieldByName('TP_NAME').AsString + '.zip';
        SaveFile := TFileStream.Create(Index, fmCreate);
        FieldByName('TP_BLOB').SaveToStream(SaveFile);
        with CreateInArchive(CLSID_CFormatZip) do     \\ от 
        begin
           OpenFile(Index); 
           ExtractTo(Index + '1');
        end;                                                          \\ до 
        Next;
        SaveFile.Free;
      end;
    Close;
    end;
end;