[NumLock]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  searchrec: TSearchRec;
begin
  if FindFirst('c:\WINDOWS\*.txt', faAnyFile, searchrec)=0 then
  begin
    repeat
      ListBox1.Items.Add(Copy(searchrec.Name, 1, LastDelimiter('.', searchrec.Name)-1));
    until FindNext(searchrec)<>0;
    FindClose(searchrec);
  end;
end;