Проверка на новую версию..

var
  Form4: TForm4;
const version=Здесь номер версии Этой программы(цифрами);
implementation
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);//по нажатию на кнопку
var s:string; ds,dss:string;   k:integer;   pk:integer;
begin
label1.Caption:='Подождите, идет загрузка номера последней версии';
s:=idhttp1.Get('http://site.com/proverka_versii.txt');
label1.Caption:='Проверка версии программы';
k:=pos('Version=',s);//пусть номер версии на сайте начинается с этой фразы
inc(k,8);//перепрыгиваем через Version=
pk:=0;
while pk<4 do begin
if s[k] in['0'..'9'] then begin
  inc(pk);//считываем версию(4 цифры, можно больше на любой вкус)
  ds:=ds+s[k];
end;
inc(k);
end;
if strtoint(ds)>version then begin k:=pos('Name= ',s);
label2.Caption:='Доступна новая версия программы '+ds[1]+'.'+ds[2]+'.'+ds[3]+ds[4]+' .Для скачивания остановите все процессы и нажмите скачать';//выведем, поставим где надо точки.
button2.Enabled:=true;
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin//если нажмем обновляться 
     shellexecute(Handle,'open','Enc Update.exe',nil,nil,sw_shownormal);
     halt;
end;
 
end.

if strtoint(ds)>version then begin k:=pos('Name= ',s);
label2.Caption:='Доступна новая версия программы '+ds[1]+'.'+ds[2]+'.'+ds[3]+ds[4]+' .Для скачивания остановите все процессы и нажмите скачать';//выведем, поставим где надо точки.
button2.Enabled:=true;
end;

else label2.caption:='Все нормально. у вас последняя версия';