[Snake22]

сделай абцд глобальными.
или сделай coef как не процедукру,а функцию и она будет возвращать значения (в виде массива например).
чтоб функция возвращала массив смотри пример:

Код:

type
  TForm1 = class(TForm)
    TntButton1: TTntButton;
    procedure TntButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
 massiv=array of integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function coef:massiv;
begin
SetLength(Result,4);
Result[1]:=1; //А
Result[2]:=2; //B
Result[3]:=5; //C
Result[4]:=100; //D
end;

procedure TForm1.TntButton1Click(Sender: TObject);
var x:massiv;
    a,b,c,d:Integer;
begin
x:=coef;
a:=x[1];
b:=x[2];
c:=x[3];
d:=x[4];
ShowMessage(IntToStr(a)+' '+IntToStr(b)+' '+IntToStr(c)+' '+IntToStr(d));
end;