consulta de lineas de codigo

[alfil123]

hola amigos e encontrado estas lineas de codigo

adoOrigen.Locate('CodZona',adoQuery.fieldbyName('Origen').AsString,[locaseInsensitive]);
dcOrigen.KeyValue := adoOrigen.Fields[0].value;

en un antiguo soft, y la verdad no se que hacen, porfavor alguien me puede explicar

[droguerman]

la primera busca un registro cuyo campo CodZona sea igual al campo Origen
una vez encontrado el registro
la segunda asigna a un componente TdbLookupComboBox el valor del primer campo en el registro encontrado dentro la tabla