我明明添加了Listbox1组件,可是为什么编译器提示说未标识符Listbox1啊  我晕死



procedure GetFileList(FileSpec: string;NamesOnly: Boolean;var FileList: TStringList);
var
  SR: TSearchRec;
  DosError: integer;
begin
  FileList.Clear;
  DosError := FindFirst(FileSpec, faAnyFile-faDirectory, SR);
  while DosError=0 do
  begin
    if NamesOnly then
      listbox1.Items.Add:=(SR.Name)
    else
      listbox1.Items.Add:=(ExtractFilePath(FileSpec)+SR.Name);
    DosError := FindNext(SR);
  end;
  FindClose(SR);
end;