Problem mit listbox (verstehe die warnung nicht)

[G G]

hi also ich hab folgenden code, aber da kommt zb da wo ich die proz aufrufe ein fehler,usw?
wie macht man das den richtig, muss ich bei uses noch was hinzufügen etc...
der fehler lautet :
[Fehler] Unit1.pas(30): Inkompatible Typen: 'TStringList' und 'Class reference'
vielen dank

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    List: TListBox;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FindAll(Path: String; List: TStringList);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FindAll('c:/', TStringList);
end;



procedure FindAll(Path: String; List: TStringList);
var 
  SearchRec: TSearchRec;
begin 
  List.Clear;
  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then 
    repeat
      List.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;
end.