Как получить строку из файла get запросом

[homa440]

Здравствуйте.
Имеется код:

PHP код:

function get_str(str,script,data:string):string;
var
I:integer;
req: string;
buf: array[0..500] of char;
Sock:TSocket;
begin
wsaStartup(MAKEWORD(2,2), wsData);
host :=resolve(str);
adr.sin_addr.s_addr :=inet_addr(pchar(host));
adr.sin_family :=AF_INET;
adr.sin_port :=htons(80);
Sock:=Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
if Sock =-1 then Exit;
if connect(sock,adr,sizeof(adr))<>0 then CloseSocket(Sock);
req:='POST http://'+str+script+data+' HTTP/1.1'#13#10+
'Host: '+str+#13#10+
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3'#13#10+
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'#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+
'Content-Type: application/x-www-form-urlencoded'+#13#10+
'Content-Length: '+inttostr(length(data))+#13#10#13#10+data;
i:= send(Sock,pointer(req)^,length(req),0);
if i=SOCKET_ERROR then exit;
fillchar(buf,sizeof(buf),0);
recv(Sock,buf,sizeof(buf),0);
result:=buf;
closesocket(Sock);
wsaCleanup;
end;

begin
get_str('site.com','/file.txt','');
end. 


В файле file.txt одна строка, пусть будет - stroka.

Результат Get запроса таков:

PHP код:

HTTP/1.1 200 OK
Date Wed, 30 Nov 2011 16:57:32 GMT
Server: Apache/2.2.14 (Win32) PHP/5.2.11
Last-Modified: Wed, 30 Nov 2011 16:50:18 GMT
ETag:"f00000000b9d2-6-4b2f687e8fb27"
Accept-Ranges: bytes
Content-Length: 6
Content-Type: text/plain

stroka 


Как бы достать только "stroka", а остальное удалить. С регулярными выражениями пока не смог разобраться.
Буду благодарен за помощь. Спасибо.

Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.