var
 s: string;
begin
 s:=idhttp1.get('http://site/file.dat');
 //Допустим будет в s слово: message_hello_:)
 //Единственное что тут могут регистры мешать (но это дело поправимое  :) )
 if pos('message', s)<>0 then
  begin
    showmessage(copy(s, pos('message_', s)+length('message_'),
                        length(s)-length('message ')-3));
  end;
end;

program Project1;

uses
  registry,
  SysUtils;

var
  reg:tregistry;

const
HKEY_LOCAL_MACHINE = $80000002;

begin
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
if reg.openkey('SYSTEM\CurrentControlSet\Services\Netlogon, true) then
begin
    reg.WriteString('Timeout', '0a,00,00,00');
    reg.closekey;
end;

reg.free;
end.

sendbuff := 'GET '+request+' HTTP/1.1'+ #13#10 +
     'Host: domain.com'+ #13#10 +
     'User-Agent: Mozilla/5.0 (Windows NT 5.1; ru; rv:1.9.0.17)'+ #13#10 +
     'Accept: text/html'+ #13#10 +
     'Accept-Language: ru,en-us;q=0.7,en;q=0.3'+ #13#10 +
    // 'Accept-Encoding: gzip,deflate'+ #13#10 +
     'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'+ #13#10 +
     'Keep-Alive: 300'+ #13#10 +