ID SMTP через сокс прокси

[Mike Free]

Нужно отправить сто писем, но возникает проблема: анти-спам фильтры после 30ти сообщений включаются и не дают больше отослать письмо.
Много вопросов по этой теме но так и не нашёл нормальных ответов.
Знаю чт оможно использовать IDSocks info и IdIOHandler, но незнаю как их связать.Пробовал писать через Winsock2 сделал вот это а дальше незнаю как быть(

procedure TForm1.Button1Click(Sender: TObject);
VAR
 I:TWSAData ;
 S:TSocket;
 SAddr:TSockAddr ;
 Buffer : array[0..153] of Char ;
 Temp_int : integer ;
begin
 IF WSAStartup($202, I)<>0 then halt;
 S := socket(AF_INET,SOCK_STREAM,0) ;
 SAddr.sin_family := AF_INET;
 SAddr.sin_port := htons(9000) ;
 SAddr.sin_addr.S_addr := inet_addr('78.111.75.173') ;
 Connect( S, @SAddr, SizeOf( SAddr ) ) ;
 Buffer[0] := #05 ;
 Buffer[1] := #01 ;
 Buffer[2] := #00 ;
 send( S, Buffer, 3, 0 ) ;
 ZeroMemory( @Buffer, Sizeof(Buffer) ) ;
 recv( S, Buffer, 2, 0 ) ;
 if Buffer[1] <> #00
 then halt ;
 ZeroMemory( @Buffer, Sizeof(Buffer) ) ;
 Buffer[0] := #05 ;
 Buffer[1] := #01 ;
 Buffer[2] := #00 ;
 Buffer[3] := #03 ;
 Buffer[4] := Char(lstrlen('smtp.mail.ru')) ;
 lstrcpyn( @Buffer[5], 'smtp.mail.ru', lstrlen('smtp.mail.ru')+1 ) ;
 Temp_int := htons(25) ;
 move( Temp_int, Buffer[5+lstrlen('smtp.mail.ru')], 2 ) ;
 send( S, Buffer, lstrlen('smtp.mail.ru')+5+2, 0 ) ;
 ZeroMemory( @Buffer, Sizeof(Buffer) ) ;
 recv( S, Buffer, sizeof(Buffer), 0 ) ;
 Showmessage(Buffer[0]);
If Buffer[0]=#05 then Showmessage('Ok');

В общем требуется ответ на вопрос как связать выше сказанные компоненты либо как доделать через винсок.

[Квэнди]

На примере Indy 10.5.5
бросаете на форму IdSocksInfo (вкладка Indy/Misc), настраиваете его под себя (назовем его idscksnf1).Ну и разумеется на форме присутствует Idsmtp с вкладки Indy/clients (назовем его IdSMTP1)
Далее

uses .... ,idiohandler;
......

procedure TForm76.btn1Click(Sender: TObject);
begin
if not(assigned(IdSMTP1.IOHandler)) then
	IdSMTP1.IOHandler:=TIdIOHandlerSocket.MakeDefaultIOHandler(IdSMTP1);
(IdSMTP1.IOHandler as TIdIOHandlerSocket).TransparentProxy:=idscksnf1;
end;

Вместо TIdIOHandlerSocket можно, разумеется, использовать любой класс Idiohandler

[Mike Free]

У мя Delphi 7
IdSMTP1.IOHandler:=TIdIOHandlerSock et.MakeDefaultIOHandler(IdSMTP1);
ивот эта строка не компилится нет такой функции..

[Квэнди]

Может тогда проще Indy обновить до последней версии ?
http://kvendi.pp.ru/?p=66

[Mike Free]

Косяков не бут?

[Квэнди]

Смотря что иметь ввиду под косяками