procedure TForm1.Button1Click(Sender: TObject);
var
list:tstrings;
jpg: TJpegImage;
z:int64;
N,i:longint;
url,html,s,s2:string;
St:TMemoryStream ;
begin
jpg := TJPEGImage.Create;
St:=TMemoryStream.Create;
Data:=TIdMultiPartFormDataStream.Create;
CookMan:=TidCookieManager.Create(HTTP);

HTTP.CookieManager := CookMan;
HTTP.AllowCookies := True;

List:=tstringlist.Create;
List.Text:=M_list.Text;

For N:=0 to List.count-1 Do
Begin
try
url:=List.Strings[N];
if url[length(url)]<>'/' then
url:=url+'/';

html:=http.Get(url+'index.php?do=register');

for i:=0 to cookman.cookieCollection.count-1 do
t.lines.add(CookMan.cookieCollection. items.cookieText);

HTTP.Request.Referer:=url+'index.php?do=register';

z:=DateTimeToUnix(time);
s:=inttostr(z)+'000';
t.Lines.Add(s);
t.Lines.Add(inttostr(st.Size));

http.Get(url+'engine/modules/antibot.php'{?rndval='+s},St);

for i:=0 to cookman.cookieCollection.count-1 do
t.lines.add(CookMan.cookieCollection. items.cookieText);

st.SaveToFile('key.dat');
jpg.loadfromfile('key.dat');
img.Picture.Bitmap.assign(jpg);

key:='-1';

while key='-1' do
application.ProcessMessages;

for i:=0 to cookman.cookieCollection.count-1 do
t.lines.add(CookMan.cookieCollection. items.cookieText);

HTTP.Request.Referer:=url+'index.php?do=register';

Data.AddFormField('submit_reg','submit_reg');
//Data.AddFormField('registration','');
Data.AddFormField('name',M_login.Text);
Data.AddFormField('password1',M_pass.Text);
Data.AddFormField('password2',M_pass.Text);
Data.AddFormField('email',M_email.Text);
t.Lines.Add(key);
Data.AddFormField('sec_code',key);

html:=HTTP.Post(url+'index.php?do=register',Data);
t.Lines.Add(html);
except
End;
End;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
key:=M_key.text;

end;