[Savant]

Ах да, еще спрашивалось, как подправить. Ну, думаю, это уже стало понятно - сделать FileHandle глобальной:

Код:

...........
implementation
 
{$R *.dfm}
 
var
  FileHandle : Integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
...........

Правда, она не становится глобальной в общем смысле, а также есть некоторые особенности объявления переменных внутри interface и implementation.