元Ｃプログラマなのですが質問させてください。

サブルーチンにあたるものが欲しくていろいろ参考書に当たってみたのですが
作成の仕方を書いてある文章が見つかりませんでした。

【環境】
言語：Delphi6 personal
OS：Windows２０００pro

【やったこと】
--------------------------------------------------------------
（略）
type
TTrance = class(TForm)
（略）
Button3: TButton;
procedure keisan(Sender: TObject);　※これをサブルーチンにしたい
（その他関数）
private
{ Private 宣言 }
public
{ Public 宣言 }
end;