Базы данных в Lazarus

  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT fio FROM table1');
  ComboBox1.Items.Add(SQLQuery1.FieldValues['fio']);

ComboBox1.Clear;
with SQLQuery1 do
  begin
    SQL.Clear;
    SQL.Add('SELECT DISTINCT fio FROM table1');
    Open;
    First;
  end;
while (not SQLQuery1.Eof) do
  begin
    ComboBox1.Items.Add(SQLQuery1.FieldValues['fio']);
    SQLQuery1.Next;
  end;

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT COUNT(fio) As f1 FROM table1 WHERE fio="Иванов Иван Иванович"');
ADOQuery1.Open;
Label3.Caption:=IntToStr(ADOQuery1.FieldByName('f1').AsInteger);

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('SELECT COUNT(*) As fio_c FROM table1 WHERE fio="Иванов Иван Иванович"');
SQLQuery1.Open;
SQLQuery1.First;
Label3.Caption:=IntToStr(SQLQuery1.FieldByName('fio_c').AsInteger);

SQLQuery1.ApplyUpdates;
SQLTransaction1.Commit;