Нужна помощь.

[ncdos]

delete/

[Slavaberezin]

отделить пароль и логин можно функциями copy и Pos
тема: [Ссылки могут видеть только зарегистрированные и активированные пользователи]

[=PaLeTiZaToR=]

отделить пароль и логин можно функциями Sopy и Pos
тема: [Ссылки могут видеть только зарегистрированные и активированные пользователи]

Copy

[VeTaL_UA]

var
PostData,acc:TStringList;
s,l,p,d:String
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Cookie:TIdCookieManager;
i:integer;
begin
acc:=TStringList.Create;
acc.LoadFromFile('accounts.txt');
[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
PostData:=TStringList.Create;
for i:=0 to acc.Count-1 do
begin
Cookie:=TIdCookieManager.Create(HTTP);
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
l:=Copy(acc.Strings[i],0,Pos(';',accounts.Strings[i])-1);
PostData.Add('Login='+l);
d:=Copy(l,Pos('@',l),Length(l)-Pos('@',l)+1);
PostData.Add('Domain='+d);
p:=Copy(acc.Strings[i],Pos(';',acc.Strings[i])+1,Length(acc.Strings[i])-Pos(';',acc.Strings[i]));
PostData.Add('Password='+p);
PostData.Add('Submit=Войти в почту');
try
s:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',PostData);
except
end;
if Pos('logout',s)<>0 then
begin
acc.Add(l+';'+p);
end;
Cookie.Free;
PostData.Clear;
end;
PostData.Free;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
acc.SaveToFile('accounts.txt');
acc.Free;
ShowMessage('Всё окончено');
end;