[NumLock]

Код:

const
  VER = '1.0';

procedure TForm1.FormCreate(Sender: TObject);
begin
  if IdHTTP1.Get('http://site.ru/version.txt')<>VER then
  begin
   // запуск процедуры обновления
  end;
end;