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;