问个小问题。希望高手解答

[freespace8]

unit unGetFolderContents;

interface

uses SysUtils,Classes,Forms;

type
TFileFoundEvent = procedure (Sender: TObject; Directory: String;
SearchRec: TSearchRec; var Stop : Boolean) of object;
TGetFolderContents = class(TThread)
private
FOnFound: TFileFoundEvent;

以下为代码

procedure TGetFolderContents.DoFound;
begin
if Assigned(FOnFound) then
begin
Delete(SRoot,1,Length(FRoot));
FOnFound(Self, SRoot, Found, FTerminated);
end;
end;

请问，我如何才能得到 SRoot ,Found ,FTerminated 的信息

[王集鹄]

SRoot ,Found ,FTerminated ？
声明在什么地方？

[wfhlxl]

let SRoot ,Found ,FTerminated become the thread's readonly perptoy .make get interface.

[mdjwmy]

把鼠标放到关键词上，按住ctrl,出现下划线，点鼠标，如果没有转到定义的地方，就是没有引用这些单元

[kuki84]

他问的就是这些东西的声明