新手：小实验有关问题，求解惑

新手：小实验问题，求解惑。
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
   function sum(i,j:integer):integer;
   begin
   //showmessage('yes!');
   j:=j+i;
   showmessage(inttostr(j));
  //Result j;
   end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//var k:integer;
begin
    //k:=sum(3);
    showmessage(inttostr(sum(2,9)));
end;

end.
上面这段代码，我只是想实现一个自定义函数，并返回和。
但是我在Button1里调用，得到的结果是9.于是我怀疑是函数问题，是不是没有计算呢？
所以我在sum里show了一个j，弹出了一个空。说明运行了的，并且此时答案是11，结果正确！，后面还跟个对话框，一串数字。
是不是返回有问题？但是我使用result一直报错，我也不知道哪儿错了。求解答： 函数 对话框
[解决办法]
 function sum(i,j:integer):integer;
   begin
   //showmessage('yes!');
   //j:=j+i;
   showmessage(inttostr(j));
  //Result j;
    Result := j + i;//直接这一句就可以了
   end;