lookupcomobobox

ae galeraaa to usando o seguinte codigo

var x: Real;
begin
ADOQuery2.Open;

x:=StrToFloat(edit1.text);
if not ADOQuery2.Locate(´Cod´,edit1.Text,[loPartialKey,loCaseInsensitive]) then
begin
ShowMEssage(´nao achou´);
end
else
begin
DBLookupComboBox1.KeyValue:=FloatToStr(x);
end;
end;

o q a pessoa vai digitar o cod no edit1 e ele vai colocar no dblookup mas o keyfield do lookup num ta no Cod.. ta dae na hora de colocar o valor X no dblookupcombobox1 ele num coloca nada.. fica em branco .. pq isso???