var
  I: Integer;

begin
  I := I + 1;
  FileName := IntToStr(I);
end.