[The Shadow]

Можно сделать так:

Код:

procedure Update;
const
Verison = //Текущая версия;
var
LastVersion: Real;
LastVersionFile: TFileStream;
begin
LastVersion:=StrToFloat(IdHTTP1.Get('http://yoursite/LastVersion.txt'));
if LastVersion > Verison then
begin
if MessageDlg('Обновить программу?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
LastVersionFile:=TFileStream.Create('Файл, в который сохранить новую версию', fmCreate);
IdHTTP1.Get('http://yoursite/LastVersion.exe', LastVersionFile);
LastVersionFile.Free;
end;
end
else ShowMessage('У вас самая последняя версия');
end;