problemas con locate

[maui]

hola comunidad

tengo el sigte problema:

tengo dos campos codigo(tedit) y nombre(tdbedit)

ingreso el codigo y no me muestra el nombre automaticamente.

estoy utilizando el sigte codigo:

Código Delphi [-]
procedure TFrmSolicitudVta.qryVentaOnChange(Sender: TObject);
begin
qryVenta.First;
qryVenta.Locate('IDEMPLEADO',Edit2.Text,[]);
qryVenta.next;
end;

¿como puedo mejorar el codigo?

espero sus valiosos comentarios....

de ante mano gracias