调用问题？(50分)

各位大虾：
你们好。我是菜鸟。紧急问题。怎么用下面的过程调用前面这个过程/？？？？
procedure larger(x,y:integer);
var
temp:integer;
begin
read(x,y);
writeln('x=',x,'y=',y);
if x<y
then begin
temp:=x;
x:=y;
y:=temp
end;
writeln('x=',x,'y=',y)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
larger:integer;
begin
button1.larger(input,output);

改为：
procedure TForm1.Button1Click(Sender: TObject);
var
larger2:integer;
begin
larger(input,output);

问题解决，谢谢参与！！