Работа с текстовым файлом... Опции

[-Alex-]

Сейчас пытаюсь перейти с Pascal на Delphi,написал простенькую прогу для создания текстового файла и записи в него чисел,но что-то она не пашет

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  procedure Button1Click(sender:Tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
n:integer;
begin
AssignFile(f,'c:\f.txt');
rewrite(f);
for n:=1 to 100 do write(f,n);
closefile(f);
end;
end.

[-Alex-]

Сначала файл создавался...но например если последовательность чисел была 100,то в нём было записано где-то 66-68 чисел,начиная с 1.
Было так:нажимаю run,высвечивалась кнопка,нажимал кнопку,создавался файл,проект не заканчивался,был всё равно в процессе,нажимал второй раз кнопку,высвечивалась ошибка....
Переписал программу,теперь ваще ничего не создаёт...сколько не нажимай кнопку...щас попробую delphi заново поставить,может чего натыкал там не то...неопытный ведь ещё.