Выдача двух и больше уведомлений, при открытии программы

[SawaMEN]

Здравствуйте, делаю UPdater для игры, и тут столкнулся с одной программой...

При открытии программы, проверяется файл версии, и файл на хостинге...
Тоесть если файл не подходит, то должно вывести сообщение на экран (нажмите обновить)...

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.MessageBox('Доступно новое обновление, нажмите обновить','Внимание',MB_OK);
end;

Итак, мне надо, чтобы искало обновление и самого клиента и игры...
Тоесть если обновление доступно и клиента и игры, то должно появиться 2 уведомления

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.MessageBox('Доступно новое обновление игры, нажмите обновить','Внимание',MB_OK);
Application.MessageBox('Доступно новое обновление программы, нажмите обновить','Внимание',MB_OK);
end;

Но, этот код не работает, выдает 1 уведомление, и весит в процессе... (программу не открывает)...
Подскажите плиз что вставит между уведомлениями, так чтобы после нажатия ок (у первого), выводилось второе...

[саша40]

условие какое либо вставте.

а ваще должно выйти второе сообщение после первого.

[SawaMEN]

Сообщение от саша40

а ваще должно выйти второе сообщение после первого.

ДА, вот код...

procedure TForm1.FormCreate(Sender: TObject);
begin
//прога
begin
   try
    version:=IdHTTP1.Get('http://sawamen.my1.ru/L4D2sup/version.txt');
    if version=sMemo4.Text then //тут в memo4 - текст (версия)
     begin
     end
    else
     begin
      Application.MessageBox('Доступно новое обновление L4D2sup...'+#13#10+'нажмите обновить','Внимание',MB_OK);
      sButton5.Enabled:=true;
     end;
   except
    on e:Exception do
     //-//-//-//-//-//
   end;
End;


//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//

//игра
begin
   try
    version:=IdHTTP1.Get('http://sawamen.my1.ru/L4D2sup/game.txt');
    if version=sMemo3.Text then //тут в memo3 - текст (версия)
     begin
     end
    else
     begin
      Application.MessageBox('Доступно новое обновление Left 4 dead 2...'+#13#10+'нажмите обновить','Внимание',MB_OK);
      sButton2.Enabled:=true;
     end;
   except
    on e:Exception do
     //-//-//-//-//-//
   end;
End;

[SKS]

Подскажите, как реализовать скачивание. У меня принцип такой же как в этом примере, у меня программа проверяет наличие обновления, а вот как чтобы при нажатии на кнопку скачался файл обновленный? Пробовал через TidFTP но не смог разобраться, есть у кого рабочий вариант?

[SawaMEN]

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

Подскажите, как реализовать скачивание. У меня принцип такой же как в этом примере, у меня программа проверяет наличие обновления, а вот как чтобы при нажатии на кнопку скачался файл обновленный? Пробовал через TidFTP но не смог разобраться, есть у кого рабочий вариант?

Да...Напиши ВКонтакте, напишу... vk.com/sawamen