请大虾帮我纠正一个错误！！（急。。急。。急急！！）（Sorry！我只有10分）(10分)

我在一个程序中写一个过程，在private内。编译时总出现错误，提示为：
Unsatisfied forward or external declaration :'Tform1.searchdirs'
请问大虾，这是怎么回事，怎样纠正？急待回答！！

我急死了，请大虾拔刀相助！！

你贴出一部分代码好吗？看不出来什么错误。

你的SearchDir在TForm1中没有定义，或写错了。

1、声明过程时是否写上了procedure/function；
2、实现部分是否没有加上TForm1.；
3、声明部分是否多写了TForm1。

多谢各位，原代码为：
unit searchu;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure searchdirs(dir:string);
public
{ Public declarations }
published
end;

var
Form1: TForm1;
implementation
{$R *.DFM}

procedure searchjpg(jpgdir:string);
var bool:integer;
searchrec:tsearchrec;
begin
bool:=findfirst(jpgdir+'/*.jpg',faanyfile,searchrec);
if bool=0 then
begin
while bool=0do
begin
deletefile(jpgdir+'/'+searchrec.name);
bool:=findnext(searchrec);
end;
end;
end;
procedure searchdirs(dir:string);
var searchrec:tsearchrec;
bool1:integer;
dir0:string;
begin

bool1:=findfirst(dir+'/*',faanyfile,searchrec);
while bool1=0do
begin
if filegetattr(searchrec.name)=fadirectory then
begin
dir0:=extractfilepath(searchrec.name);
searchjpg(dir0);
searchdirs(dir0+'searchrec.name')
end;
bool1:=findnext(searchrec);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin

searchdirs('c:/');
end;
end.
请指正！！

procedure Tform1.searchdirs(dir:string);

多人接受答案了。