Data de arquivo na internet

Oi pessoal,

alguem sabe como pego a data e hora de um arquivo na internet.

algo do tipo ´http://www.meusite.com/update/arquivo.exe´


eu tenho uma função que faz isso mas não funciona na internet, apenas com arquivos locais ou em uma rede.exemplo ´\\servidor\arquivo.exe)


Function PegaDataHora(NomeArquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(NomeArquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;

Preciso urgente de uma resposta !
obrigado.