函数调用问题？ 兄弟们帮忙看一下。

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;
  var
    PromptText, ReplaceText : string[50];
    Index : integer;
type
  TFrmMain = class(TForm)
    LblInfo: TLabel;
    TmrOne: TTimer;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    ColorDialog1: TColorDialog;
    N10: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure TmrOneTimer(Sender: TObject);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N9Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FrmMain: TFrmMain;
implementationuses Unit2;
{$R *.dfm}//*******************************************//
//           程序功能：滚动的文字             //
//  1. 滚动方式与文字内容及颜色用户可以设置    //
//  2. 滚动方式: 从左到右，从上到下，从右到左  //
//  从上到上。                               //
//*******************************************//
procedure TFrmMain.FormCreate(Sender: TObject);
begin
  PromptText := 'please input your prompt!';
  ReplaceText := '请输入你的提示文字!';
  Index := 4;
  with LblInfo do
    begin
      Caption := PromptText;
      Font.Size := 20;
      Font.Name := 'Arial';
      font.Color := clred;
    end
end;procedure TFrmMain.TmrOneTimer(Sender: TObject);
begin
  case Index of
    1:
       begin
         LblInfo.left:=LblInfo.left + 1;
         if (LblInfo.left+LblInfo.width) >= FrmMain.width then
           LblInfo.Left := 0;
       end;
(*        LeftToRight;  这样调用会出错，说函数没有定义，我在上面定义了，函数 里的说LblInfo没有定义 
    2:
       RightToLeft;
    3:
       TopToDown;
    4:
       DownToTop; *)
    5:
      procedure default;
      begin
        if LblInfo.caption = PromptText then
          LblInfo.caption := ReplaceText
        else
          LblInfo.caption := PromptText;
      end;
  end
end;procedure TFrmMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     FrmMain.PopupMenu :=PopupMenu1;
end;procedure TFrmMain.N9Click(Sender: TObject);
begin
  close;
end;procedure TFrmMain.N1Click(Sender: TObject);
begin
  FrmpromptText.show
end;procedure TFrmMain.N2Click(Sender: TObject);
begin
  if colordialog1.Execute then
    LblInfo.font.Color := colordialog1.Color;
end;procedure TFrmMain.N4Click(Sender: TObject);
begin
   index := 1;
end;procedure TFrmMain.N5Click(Sender: TObject);
begin
  index := 2;
end;procedure TFrmMain.N6Click(Sender: TObject);
begin
  index := 3;
end;procedure TFrmMain.N7Click(Sender: TObject);
begin
  index := 4;
end;procedure TFrmMain.N10Click(Sender: TObject);
begin
  index := 5;
end;// 自定义函数
{
procedure LeftToRight;
begin
  LblInfo.left:=LblInfo.left + 1;
  if (LblInfo.left+LblInfo.width) >= FrmMain.width then
    LblInfo.Left := 0;
end;procedure RightToLeft;
begin
  LblInfo.left := LblInfo.letf - 1;
  if (LblInfo.left + LblInfo.width) <= 0 then
    LblInfo.Left := FrmMain.width;
endprocedure Default;
begin
  if LblInfo.caption = PromptText then
    LblInfo.caption := ReplaceText
  else
    LblInfo.caption := PromptText;
end }
end.
错误在用注释说时了。