guardar datos de una fila seleccionada de un dbrig en variables

[deprimera]

aca t mando el archivo adjunto

pienso q tengo q agregar este codigo y chekear q dbgrid esta seleccionado:

procedure Tcodigo.BitBtn1Click(Sender: TObject);
var
cod: Integer;
desc: String;
begin
cod:= adotable1.fieldbyname('Código').Value;
desc:= adotable1.fieldbyname('Servicio').Value;

cod:= adotable2.fieldbyname('Código').Value;
desc:= adotable2.fieldbyname('Descripción').Value;

edit1.Text:=inttostr(cod);
edit2.Text:= desc;
end;