procedure TForm2.FormShow(Sender: TObject);
var
http:THTTPSend;
Response:TFileStream;
q:tmemorystream;
s:string;
Version:TStringList;
buttonSelected:integer;
begin
s:='1.0'; // Текущая версия программы
q:=tmemorystream.create; // создаем переменную tmemorystream
version:=tstringlist.Create; // создаем переменную tstringlist
// Обновления
HttpGetText('http://softw.at.ua/version1.txt', Version); // Получаем версию программы на сайте
if Pos(s,version.Text)<>0 then begin // Если переменная S не равняется версии на сайте
form2.Show; // открываем форму
end else begin // иначе
buttonSelected:=MessageDlg('Доступно обновление, хотите скачать?',mtInformation, mbOKCancel, 0); //Спрашиваем, хотим ли мы установить обновления
if buttonSelected = mrOK then begin // если нажата кнопка ОК
   if HTTP.HTTPMethod('GET', 'http://softw.at.ua/Soft_W_Info_IP.rar') then
      HTTP.Document.SaveToFile('Soft_W_Info_IP.rar'); // качаем обновление
   Application.MessageBox('Обновление установлено','Готово ^_^',MB_OK);
   Application.Terminate; // Закрываем программу
end else
if buttonSelected = mrCancel then begin // если нажата кнопка Cancel
  form2.Show; // открываем форму
end;

end;
end;