Código Delphi
[-]Esto te guarda el id de la tabla en el k esta posicionado;
CampoActivo:=Tabla.FieldbyName('idtabla').AsInteger;
Tabla.Locate('idTabla',CampoActivo,[loCaseInsensitive]);
Espero k te sirva, pero lo utilizas mediante la Tabla o el Query dependiendo k estes usuando