function Getreferer : string ;
var
        Buf : array[0..4095] of Char;
begin
        Setstring(result,buf,getenvironmentvariable('HTTP_REFERER',buf,sizeof(buf)));
end;

---
GetEnvironmentVariavle WindowsAPIによって取得し、Delphiに引き渡す
（簡単だけど、何がどうなっているのやら･･･）