Вопрос по циклу

[Crivel]

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
Kol : Integer;
F1 : TextFile;
begin
Kol := StrToInt(Edit1.Text);
AssignFile(F1,'Temping.tmp');
ReWrite(F1);
for 1 to Kol do
begin
Application.ProcessMessages;
OpenDialog1.Execute;
end;
end;

end.

Ошибка -

[Pascal Error] Unit2.pas(37): E1019 For loop control variable must be simple local variable

Я понимаю что ошибка означает, но мне именно нужно чтобы переменной Kol вовремя программы
присваивалось значение.

[AlexandrSid]

procedure TForm2.Button1Click(Sender: TObject);   
var  
Kol,i : Integer;   
F1 : TextFile;   
begin  
Kol := StrToInt(Edit1.Text);   
AssignFile(F1,'Temping.tmp');   
ReWrite(F1);   
for i:=1 to Kol do  
begin  
Application.ProcessMessages;   
OpenDialog1.Execute;   
end;   
end;

Вот так должно работать. В цикле значение необходимо присваиват переменной, в данном случаи i