unit button;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Label1: TLabel;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Label1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);function GetFileCount(srcPath, srcFileName: string): Integer;varFileRec: TSearchrec;currPath: string;beginif srcPath[Length(srcPath)] <> '\' then srcPath := srcPath + '\';currPath := srcPath + '*.*';Result := 0;if FindFirst(currPath, faAnyFile, FileRec) = 0 thenrepeatif ((FileRec.Attr and faDirectory) <> 0) and(FileRec.Name <> '.') and(FileRec.Name <> '..') thenbeginResult := Result + GetFileCount(srcPath + FileRec.Name, srcFileName);end elseif AnsiCompareText(srcFileName, FileRec.Name) = 0 thenResult := Result + 1;until FindNext(FileRec) <> 0;end;beginend;procedure TForm1.Button1Click(Sender: TObject);beginfunction GetFileCount(srcPath, srcFileName: string): Integer;end;procedure TForm1.Label1Click(Sender: TObject);beginlabel1.caption:='333333'end;end.如何在button1窗體下調(diào)用函數(shù)過(guò)程