1:

FileListBox1.Directory := 'C:\Texte';					

1:

variable := FileListBox1.Items.Count;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function VerzDateiCount(Verzeichnis:string):longint;
var
  SR : TSearchRec;
begin
  Result := 0;
  if Verzeichnis[length(Verzeichnis)]<>'\' then
    Verzeichnis:=Verzeichnis+'\';
  if FindFirst(Verzeichnis+'*.*',$3F,SR)=0 then begin
    repeat
      if ((SR.Attr and faAnyFile)>0) and ((SR.Attr and faDirectory)<1) then
        inc(Result);
    until FindNext(SR)<>0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(VerzDateiCount('C:\winnt\')));
end;