[mskvkin]

Используй IdHTTP вот как его использовать:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
s:string;
begin
  Response:=TStringStream.Create('');
  LoginInfo:= TStringList.Create;
  LoginInfo.Clear;
      try
         idHTTP1.Post('http://www.x.com/Login.php',LoginInfo,Response);
      except
        MessageBox(Handle,'Проверьте подключение к интернету','Внимание!!!',MB_ICONWarning);
      end;

    s:=idHTTP1.get('http://www.x.com/IP_Script.php');

   Memo.text:=s;

end;