Undeclared Identifier ? Select Directory ? Delphi7

[Amenovis]

procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
sr: TSearchRec;
FilePath:string;
begin
if SelectDirectory('Please choose','\',FilePath) then
begin
memo1.Clear;
i := FindFirst(FilePath + '\*.wil',faAnyFile,sr) ;
while i = 0 do
begin
Memo1.Lines.Add(filepath+'\'+sr.Name);
i := FindNext(sr);
end;
edit1.Text:=Trim(FilePath);
end;
end;

Why he ever say me :" Undeclared Identifier 'SelectDirectory' "?????

 

[Amenovis]

ok fixed i had under "uses" not "FileCtrl" after it.... it worked

 

[Amenovis]

Ok i have now that problem and that looks hard to solve (sorry for triple)

EncryptFile(tmp,tmp2,OBJECTIMAGEFILEXX,kb256); (Code)

Incompatible types: 'String' and 'PAnsiChar' (Error)