Kontsa

procedure TForm1.Button1Click(Sender: TObject);
var m:string;
begin
parseri := createoleobject('Microsoft.XMLHTTP');
parseri.open('HEAD', 'http://www.someplace.com/index.xml', False);
parseri.Send();
m:= parseri.getResponseHeader('Last-Modified');
label2.Caption:=m;
end;