procedure TForm1.FormCreate(Sender: TObject);
  var
      db: TpFIBDatabase;
      trans: TpFIBTransaction;
      query: TpFIBQuery;
      List: TStringList;
begin
      /////////////////////////////////////////////////
      List := TStringList.Create;
      db:=TpFIBDatabase.Create(nil);
      db.connectparams.Username:='SYSDBA';
      db.connectparams.Password:='masterkey';
      db.DatabaseName:='srv-250:S-Market_ukm';
      db.LibraryName:= 'fbclient.dll';
      db.Connected:= true;
      trans:= TpFIBTransaction.Create(nil);
      query:= TpFIBQuery.Create(nil);
      trans.DefaultDatabase:=db;
      query.Transaction:=trans;
      memo1.Lines.add('Получаем список касс');
      List.add('Получаем список касс');
      query.SQL.Clear;
      query.SQL.Add('select ID_CASH_LIST, NAME_CASH_LIST from CASH_LIST where UPLOAD_PATH <> ""');
      trans.StartTransaction;
      query.ExecQuery;
      while not query.EOF do
                              begin
                                cbb1.Items.Insert( query.FieldByName('ID_CASH_LIST').AsInteger ,query.FieldByName('NAME_CASH_LIST').AsString);
                                 query.next;
                              end;
      trans.Commit;
      memo1.Lines.add('Получаем список касс');
end;