اضافة الكوكيز والاتصال بموقع للمحافظة على تسجيل الدخول

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var http : TIdHTTP;
s : string;
begin
  try
   try
     http := TIdHTTP.Create(nil);
     Memo1.Clear;
     with http do
     begin
          HandleRedirects := True;
          AllowCookies := True;
           CookieManager.AddCookie('Session=vm4l0w033cdng5mekj7834sgdddzsx21vz5bkzzq', 'realmdrid.ws/vb');
          Request.UserAgent := 'Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.7.3) Gecko/20040924 Epiphany/1.4.4 (Ubuntu)';
       Memo1.Text := Get('http://realmdrid.ws/vb');
          Caption := ResponseText;
     end;
   except
     On e: Exception do
     begin
          Memo1.Lines.Add('Exception: '+e.Message);
     end;
   end;
  finally
     http.Free;
  end;
end;

كود :

http://y24.img-up.net/ssssab87.JPG