Fórum Povoando TComboBox! #355431

Criei este procedimento para povoar um TComboBox com os nome dos componentes TIBDataSet, porem não da certo com TComboBox, apenas com TMemo, alguem pode me ajduar com isso ?

procedure TfrmRelCon.Button1Click(Sender: TObject);
var
QtdComponentes, I : Integer;
begin
QtdComponentes := Modulo.ComponentCount;
memoTabelas.Clear;
for I := 0 to QtdComponentes do
begin
if I = QtdComponentes then
Abort;
if Modulo.Components[I] is TIBDataSet then
begin
memoTabelas.Lines.Add(Modulo.Components[I].Name);
cmbxTabelas.AddItem(Modulo.Components[I].Name[I],Self);
end;
end;
end;

No memo | No ComboBox
... | ...
setClassificacao | t
setDoenca | n
setPique |
... | Q

Desde já agradeço.