но ешё нашёлса способ взлома шоп монет что бы их взломать отправляем такое писмо (без темы)

procedure TForm1.Button1Click(Sender: TObject);
var CM: TIdCookieManager;
captcha:TMemoryStream;
begin
CM:= TidCookieManager.Create(IdHTTP1);
IdHTTP1.AllowCookies := True;
IdHTTP1.CookieManager :=10 - Здесь Вы должны написать сколько шоп монет у вас есть.
IdHTTP1.HandleRedirects :=50000 - Здесь Вы должны написать, сколько шоп монет вы хотите получить.
captcha:=TMemoryStream.Create;
idhttp1.Request.Referer:=login - Здесь, вместо login - пишете имя вашей учетой записи в LastChaos
idhttp1.Get=password - Здесь, вместо password, Вы должны написать пароль от вашей учетной записи
captcha.SaveToStream(captcha);
captcha.SaveTofile('captcha.jpeg');
Image1.Picture.LoadFromfile('captcha.jpeg');