Найти выход и обойти ошибку. возможно?

[T-dayne]

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

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

и окно не закрывается!
Скорее всего, ошибка возникает из=за того, что я пытаюсь вызвть закрытие формы при событии ShowModal, так вот вопрос как мне можно произвести закрытие формы после этого showmessage() ?
Язык дельфи...

[MaxNik2009]

Так тут же черным по английски написано: в событии FormShow нельзя выполнять OnShow и OnHide. зделай отдельную функция для прятания окна.

[Stilet]

Такие вещи нужно не в OnShow делать а в OnCreate.

[T-dayne]

Сообщение от MaxNik2009

зделай отдельную функция для прятания окна.

А как реализовать? Попробовал запихнуть close в отдельную процедуру и запустить ее из под OnShow , ошибки нет, но программа виснет наглухо в этот момент

[evg_m]

показываю ShowModal значит есть кнопка закрывающая окно пусть это будет кнопка buttonOk тогда

form9.close; замени form9.buttonOk.click;

[T-dayne]

evg_m
После "нажатия" кнопки программа виснет наглухо как и в посте