[T-dayne]

Здравствуйте. Написал код, который скачивает с сервера файл, проверяет этот файл и если условие верно, то показывает одно окно, если не верно, происходит выход из формы.
Это я образно описал, вот сам код, с комментариями:

PHP код:

procedure TForm9.FormShow(Sender: TObject);
var FileOnNet, LocalFileName: string;
ini: tinifile;
begin
   gif.Visible:=true;
   label1.Visible:=true;
   form9.Height:=80;
   memo1.Visible:=false;
   button1.Visible:=false;
   button2.Visible:=false; //возвращаем исходные данные окна

   FileOnNet:='http://127.0.0.1/mysite/finalv.ini';
   LocalFileName:='finalv.ini';
   label1.Caption:='Подключаемся...';
   if GetInetFile(FileOnNet,LocalFileName) then //Если файл скачан успешно 
    begin
    label1.Caption:='Проверка наличия версии...';
    ini:=tinifile.Create(extractfiledir(application.ExeName)+'\finalv.ini');
     if ini.ReadInteger('main', 'finalv', 1)>1331033 then //сравниваем версию на сайте и версию программы
      begin
      gif.Visible:=false; //если есть новая версия активируем текст и кнопки обновления
      label1.Visible:=false;
      form9.Height:=134;
      memo1.Visible:=true;
      button1.Visible:=true;
      button2.Visible:=true;
      end
     else
      begin //если при сравнении версии одинаковы то
       showmessage('У вас самая последняя версия'); 
       form9.Close;
      end;
    end
     else //если файл скачать не удалось то выводим:
      showmessage('Не удалось подключиться к серверу обновления!');

end; 


Так вот, все работает прекрасно, но если вдруг получается так, что версии одинаковы, и обновление не требуется, то на месте кода:

Код:

showmessage('У вас самая последняя версия'); 
       form9.Close;

Выползает ошибка

Cannot change visible in OnShow or OnHide

и окно не закрывается!
В чем может быть проблема?