имя сохранёного файла

[bulldog5293]

Как рпавельно указать имя сохраняемого файла в цикле, тобиш что бы шло от 1 до ..., пробывал так, но ругается на integer i

procedure TForm1.Button1Click(Sender: TObject);
var
  i,z:integer;
begin
  i:=0;
try
  i:=i+1;
 For z := 1 to (100000 div 2) do
  TFileStream.Create(extractfilepath(paramstr(0)) + '\файл'+i+'.txt', fmcreate);  // *
  except
  end;
end;

[_SERGEYX_]

procedure TForm1.Button1Click(Sender: TObject);
var  z:integer;
begin
 For z := 1 to (100000 div 2) do
  TFileStream.Create(extractfilepath(paramstr(0)) + '\файл'+inttostr(z)+'.txt', fmcreate);
end;

на коленке пишу... не проверял...