Delphi. Создать автоматически 100 текстовых файлов в папке. с именем от 0 до 99

program N92648521;

uses
  SysUtils, Windows;

var
  i: byte;
  Handle: integer;
  FileName,
  Dir,
  Result: string;

begin
  Result := '';
  if ParamCount = 0 then
    Dir := ExtractFileDir(ParamStr(0))
  else
    Dir := ParamStr(1);
  Dir := IncludeTrailingBackSlash(Dir);
  for i := 0 to 99 do
  begin
    FileName := Dir + IntToStr(i) + '.txt';
    if FileExists(FileName) then
    begin
      if Result <> '' then
        Result := Result + #13#10;
      Result := Result + 'Файл ' + ExtractFileName(FileName) + ' уже существует'
    end
    else
    begin
      Handle := FileCreate(FileName);
      if Handle = -1 then
      begin
        if Result <> '' then
          Result := Result + #13#10;
        Result := Result + 'Невозможно создать ' + ExtractFileName(FileName)
      end
      else
        FileClose(Handle)
    end
  end;
  if Result = '' then
    MessageBox(0, 'Все файлы созданы', 'Работа завершена', MB_ICONASTERISK)
  else
    MessageBox(0, PChar(Result), 'Ошибка', MB_ICONWARNING)
end.

Программа принимает один параметр командной строки - путь до папки, в которой требуется создать файлы. Если её запустить без параметров, то она создаст файлы в папке, из которой была запущена.

А в чем у вас проблема? Что-то не получается?