如何建函数（前五名解答者各二十分，以不重复且正确为准）。

Question

刚发了个无分的贴子，哎，虽然这个问题很菜，但对我Delphei起步很重要，所以我决定用所有的分数来换得一个让我能正确使用函数的方法。古人云：授人以鱼，不若授人以渔。请各位不啬赐教。我………………真的很菜，就是不清楚要怎么才能建立函数，我直接在下面建立函数，但不成功，请教我。（另外除了回答问题得分外，还有其它方法得分吗？请高手指点迷径）。
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    function StadyFun(Temp:integer):string;         //(此处为我自建函数）
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}

Answer 1

光标点在function StadyFun(Temp:integer):string;上，点shift＋ctrl＋c，然后写这个函数实现的内容

Answer 2

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    function StadyFun(Temp:integer):string;         //(此处为我自建函数）
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function TForm1.StadyFun(Temp:integer):string; 
begin
  result:='123';
end;

Answer 3

顺便问下，procedure也是一样处理的吗？