Problema con dbLookupCombobox

[rlavisse]

Molina, estoy en la misma que vos, pero no puedo cargar mi combo de provincias siquiera. Mi codigo es el siguiente, utilizo una conexion DBExpress a Firebird 2.0

procedure TfNuevoSocio.FormCreate(Sender: TObject);
var
q : TSQLQuery;
s : TDatasource;
begin
try
q := TConexion.getQuery;
q.SQL.Text := Concat(' Select codigoProvincia, Provincia '#13,
' From Provincias ');
s := tdatasource.Create(self);
s.DataSet := q;
q.Open;
cbProvincia.ListSource := s;
cbProvincia.ListField := 'Provincia';
cbProvincia.KeyField := 'codigoProvincia';

finally
FreeAndNil(q);
end;
end;

Sabes que estoy haciendo mal? agradezco tu ayuda ..