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