Почему выдаёт ошибку в процедуре?

Program CnopCalk;

uses GraphABC;

procedure writeln(c); //здесь ошибка

 var z: ButtonABC;

   a,b,c:real;   

begin

  readln(a);

  readln(b);

  c:=a+b;

  z:=new ButtonABC(350, 250, 200, 50, 'rez');

  z.OnClick:=writeln(c);

end.

попробуй с:=(а+b)