consulta de lineas de codigo
 

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

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