Это будет не так то просто,брут то организован на прямую через винапи сокеты,а не инди например.

bombeg, а смысл переписывать его на асм?

И вправду, зачем? здесь и на Делфи переписывать и дописывать )
Старт потоков попросту отсутствует..
for I0:=1 to ProcCount do Sock[I0]:=TScan.Create(false);
Где WSAStartup и WSAStartup ВинСокета?
сокет не определен, значения хоста и порта не присвоены, и он не конектит :-\
sock:=Socket(AF_INET,SOCK_STREAM,0);
addr.sin_family:=AF_INET;
addr.sin_port:=htons(110);
addr.sin_addr.S_addr:=inet_addr(PChar(POP3serv));
if Connect(sock,Addr,Sizeof(addr))=SOCKET_ERROR then
begin
//понесся первый recv

ИМХО Если уже браться писать, то хотя бы что-то работоспособное, а так, тема просто для накрутки постов и репы..