Problem z polaczeniem combobox i zeosami

Witam mam taki problem napisalem sobie program do zeosow wprawdzamy nastepujace zapytanie:
select * from public.formaty_dat;
(pola w tej tabeli to id i format)
przekazujemy to do datasetu.

Nastepnie w TDBComboBox wybieramy danego dataseta i wskazujemy aby wyswietlil wszystkie formaty z tej tabeli... no i tu zaczynaja sie schodzy bo wyswietla mi tylko 1 rekord. Zrobilem to nieco inaczej:

procedure TfmZS2.FormCreate(Sender: TObject);
begin
  qrGetData.Open;
  qrGetData.First;
    while not qrGetData.Eof do
    begin
      cmbFormatDaty.Items.Add(qrGetData.FieldByName('format_daty').AsString);
      qrGetData.Next;
    end;
end;

Pieknie mi sie formaty w comboxie wyswietlaja ale teraz ... musze pobrac ID formatu ktory wybierze user i przekazac ten ID do odpowiedniego zapytania (inserta dokladnie) gdyz bedzie ten ID wykozystany do powiazania w dalszej czesci programu.

Moze ktos pomoc jak pobrac ID tego zaznaczonego formatu ??

PS.
Gdy zrobilem testowo

fmZS2.caption := qrGetData.FieldByName('id_formatu_daty').AsString;

to zwraca mi tylko ostatnie ID

ok juz nie aktualne poradzilem sobie ... (troche na okolo ale dziala ...) na qrGetData ustawilem filter na true w combo onChange ustawilem cos takiego:

procedure TfmZS2.cmbFormatDatyChange(Sender: TObject);
var
  zap: string;
begin
  zap := 'format_daty = ' + #39 + cmbFormatDaty.Text + #39 ;
  qrGetData.Filter := zap;
  id_formatu_daty := qrGetDataid_formatu_daty.AsInteger;
end;