Ошибка в коде и ошибка HTTP 400

procedure TForm1.Button1Click(Sender: TObject);
var
i, rez:integer;
info:Tstringlist;
p:Tstringlist;
HTTP: TIdHTTP;
 
begin
info:=tstringlist.Create;
p:=tstringlist.Create;
Memo2.Clear;
Label1.Caption:=inttostr(0);
Label2.Caption:=inttostr(0);
ProgressBar1.Max:=Memo1.Lines.Count;
ProgressBar1.Position:=0;
HTTP := TIdHTTP.Create(nil);
HTTP.HandleRedirects:=false;
for i:=0 to Memo1.Lines.Count-1 do
begin
  HTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.117 Safari/537.36';
  HTTP.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  HTTP.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
  HTTP.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
  HTTP.Request.CustomHeaders.Add('Cookie: '+Memo3.Lines.Strings[i]);
  HTTP.Request.ContentType:='application/x-www-form-urlencoded';
  info.Add('action=code');
  info.Add('data='+Memo1.Lines.Strings[i]);
  p.Text:=HTTP.Post('http://Тут.типо/сайт/чтото.php', info);
  if Pos('success', p.Text)<>0 then
  begin
Rez:=1;
Memo2.Lines.Add(Memo1.Lines.Strings[i]+' Отлично!');
end
else
begin
Rez:=-1;
end;
 
 
begin
 case rez of
 
1: begin
Form1.Label1.Caption:=inttostr(StrToInt(Form1.Label1.Caption)+1);
Form1.ProgressBar1.Position:= Form1.ProgressBar1.Position+1;
end;
-1: begin
Form1.Label2.Caption:=inttostr(StrToInt(Form1.Label2.Caption)+1);
Form1.ProgressBar1.Position:= Form1.ProgressBar1.Position+1;
end;
  end;
 end;
end;
begin
       HTTP.Free;
     info.Free;
end;
 
 end;
 end.

HTTP.Request.Clear;

HTTP.Request.CustomHeaders.Add('Cookie: '+Memo3.Lines.Strings[i]);

HTTP.Request.CustomHeaders.Add('Cookie: '+Memo3.Lines.Strings[0]);