[NumLock]

теперь кроме шуток) попробуй так:

Код:

uses
  msxml, ComObj,
...
var
  xml: IXMLHttpRequest;
begin
  xml:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  xml.open('GET', 'http://snaked3.16mb.com/downloads/files/miniserv/vers.txt', False, EmptyParam, EmptyParam);
  xml.setRequestHeader('If-Modified-Since', '0');
  xml.send(EmptyParam);
  if xml.status=200 then Memo1.Text:=xml.responseText;
end;

у меня отрабатывает, но с кирилицей проблемы. нужно по-другому ответ вытаскивать.