请问函数声明错在哪儿了？

Question

代码如下，请老师解答，万分感谢中！type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
   procedure Search ;
   procedure Again;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   SearchRec: TSearchRec;
implementation
{$R *.DFM}
procedure TForm1.SearchClick(Sender: TObject);
begin
  FindFirst('c:\Program Files\delphi3\bin\*.*', faAnyFile, SearchRec);
  Label1.Caption := SearchRec.Name + ' is ' + IntToStr(SearchRec.Size) + ' bytes in size';
end;
procedure TForm1.AgainClick(Sender: TObject);
begin
  if (FindNext(SearchRec) = 0)
        Label1.Caption := SearchRec.Name + ' is ' + IntToStr(SearchRec.Size) + ' bytes in size';
  else
    FindClose(SearchRec);
end;

Answer 1

定义部份 procedure Search ;而实现部份又是 procedure TForm1.SearchClick(Sender: TObject);要么定义部 改成 procedure SearchClick(Sender: TObject);要么实现部分改成 procedure TForm1.Search;

Answer 2

定义部分 procedure Search
在实现部分中就没有用到

Answer 3

你這個Search 和again難道是按鈕嗎？

Answer 4

delphi 有个快捷键 ，Ctrl Shift C

Answer 5

overload的Method,procedure,function定义时一定要写参数，且与声明必须完全一致