Delphi的函数及过程且参数返回数据

function myset(x:Integer;out y:Integer):Integer;stdcall; // 函数
begin
y:=x+1;
Result:=0;
end;

procedure myset1(x:Integer;out y:Integer);stdcall;    //过程
begin
y:=x+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var y:Integer;
begin
myset(1,y);
ShowMessage(IntToStr(y));

myset1(1,y);
ShowMessage(IntToStr(y));
end;