var Sylko, page:string; dark:TStringList; s:string; begin sylko:='http://www.darkorbit.com/?locale=ru&aid=333&aip=STPACK'; dark:=tstringlist.Create; dark.Add('loginForm_default_username='+edit1.text); dark.Add('loginForm_default_password='+edit2.text); dark.Add('loginForm_default_login_submit=Вход'); memo1.lines.Add('Попытка авторизации...'); page:=idhttp1.Post(sylko,dark); Reg.Expression := 'http://'+'ru5'+'\.darkorbit\.bigpoint\.com/GameAPI\.php\?req=(.*?)">'; if Reg.Exec(s) then s:= Reg.Match[1]; SetLength(s,Length(s)-2); S:=idHTTP1.Get('http://'+'ru5'+'.darkorbit.bigpoint.com/GameAPI.php?req='+S); if Pos('span', S) <> 0 then memo1.lines.Add:=('YRA') else memo1.lines.Add:=('ERROR!'); end;