Что не так с пост запросом?

unit Unit6;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdServerIOHandler, IdSSL,
  IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdCookieManager;
 
type
  TForm6 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    idhtp1: TIdHTTP;
    idsrvrhndlrslpnsl1: TIdServerIOHandlerSSLOpenSSL;
    btn1: TButton;
    mmo1: TMemo;
    IdCookieManager1: TIdCookieManager;
    procedure btn1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form6: TForm6;
  Data:TStringList;
  code,go,login,pass:string;
  Http:TIdHTTP;
 
 
implementation
 
{$R *.dfm}
 
 
procedure TForm6.btn1Click(Sender: TObject);
 
begin
login := edt1.Text  ;
pass := edt2.Text    ;
http := TIdHTTP.Create;
Data := TStringList.Create;
 http.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
Http.Request.Host:='cheat-master.ru';
Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
Http.CookieManager := IdCookieManager1;
Http.AllowCookies := true;
 Http.HandleRedirects:= True;
 
Data.Add('user='+login);
Data.Add('password='+pass);
Data.Add('rem=1');
Data.Add('a=2');
Data.Add('ajax=1');
Data.Add('rnd=708');
 Data.Add('_tp_=xml');
Http.Post('http://cheat-master.ru/index/sub/',Data);
code := idhtp1.Get ('http://cheat-master.ru/');
mmo1.Lines.Add(code) ;
if Pos('center>Вы здесь: <font color="#ff0000">' , code) <> 0  then
begin
 
 
ShowMessage('Вы успешно авторизовались');
end
else
begin
ShowMessage('Ошибка' );
end;
 
end;
 
 
 
end.

Data.Add('rnd=708');