Типо так
program upd;
var currentver, newver, i : integer;
CONST
currentver='10'
begin
newver := GetNewVer('http://progasait.com.org.ru/ver.htm'); //проверка на новую версию
if newver>currentver then i := FormAddString('Обнови прогу по сцылке http://progasait.com.org.ru/cka4atb.htm');
else i := FormAddString('Ich habe nicht update');
end.
Не силён в МП (чайник).
Это не реальный код, а нечто
З.Ы.
http://progasait.com.org.ru/ver.htm -- документ с номером последней версии (несуществующий, ненавижу цифру 404)