com lookup

ola pessoal eu crie um campo lookup para mostrar quantidade vendida de um produto de sendo a ultima data vendida

mas não estou conseguindo, estou fazendo assim

 Qryultdata.First;

 while not Qryultdata.Eof do begin

 QryprodLoja.Edit;

 Qryvendido.Close;

 Qryvendido.ParamByName('DT_VENDA').AsString:=Qryultdata.FieldByName('DT_VENDA').AsString;

 Qryvendido.OPEN;

 QryprodLoja.FieldByName('LK_DS_QUANT').AsInteger:= Qryvendido.FieldByName('QT_PRODUTO_VENDIDO').AsInteger;

 Qryultdata.Next;

 END;