求助!delphi Goforward

請問這一段
procedure Goforward(x,y,z: single);
是什麼意思?什麼元件編輯出來的?

不是元件
procedure Goforward(x,y,z: single); {走路CALL向目标地方前进}
var
  x1:Single;
  y1:Single;
  z1:Single; .
.
.
.
END;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Goforward(x1,y1,z1);
end;