como llenar un combobox y guardar los datos

[amix]

si mira esto es lo q estoy haciendo pero a la hora de correrlo no me aparece nada

procedure TfrmConceptos.txtcbChange(Sender: TObject);
begin
sqlBuscar.SQL.Text:='SELECT CVE_TIPOCOBRO FROM CONCEPTOS';
sqlBuscar.Active:=true;
while not sqlBuscar.Eof do
begin
txtcb.Items.Add(sqlBuscar.Fields[0].text);
sqlBuscar.Next;
end;