guardar datos de una fila seleccionada de un dbrig en variables

[[Caral]]

Hola
Bueno, y asi:

Código Delphi [-]
procedure Tcodigo.BitBtn1Click(Sender: TObject);
var
cod: Integer;
desc: String;
begin
cod:=  adotable1.fieldbyname('Código').Value;
desc:= adotable1.fieldbyname('Servicio').Value;
edit1.Text:=inttostr(cod);
edit2.Text:= desc;
end;

Si las variables son globales, se salen del procedimiento y podrian contener cualquier otro valor inicial.
Saludos