Delphi socks5 прокси к idsmtp

function sendsmtp(akk,mail,from,subj,text:string):string;

 var

  SMTP    : TIdSMTP;

  msg     : TIdMessage;

  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;

  s:string;

begin

  SMTP := TIdSMTP.Create(nil);

  s:=getlogin(akk,':');

  SMTP.Host := 'smtp.'+getpass(s,'@');

  SMTP.Port := 465;

  SMTP.AuthType := satDefault;

  SMTP.Username := getlogin(akk,':');{Должно совпадать с msg.From.Address}

  SMTP.Password := getpass(akk,':');

  //это необходимо использовать для SSL

  SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);

  SSLOpen.Host := SMTP.Host;

  SSLOpen.Port := SMTP.Port;

  SSLOpen.DefaultPort := 0;

  SSLOpen.SSLOptions.Method := sslvSSLv23;

  SSLOpen.SSLOptions.Mode := sslmUnassigned;

  SMTP.IOHandler := SSLOpen;

  SMTP.UseTLS := utUseImplicitTLS;

  msg := TIdMessage.Create(nil);

  msg.ContentType:='text/html; charset=windows-1251';

  msg.Body.Text:=text;

  msg.Subject:=subj;

  msg.From.Address := getlogin(akk,':');; {<<Должно совпадать с SMTP.UserName}

  msg.From.Name := from;

  msg.Recipients.EMailAddresses :=mail;

  SMTP.Connect;

  if SMTP.Connected then

    begin

      SMTP.Send(msg);

      result:='Сообщение отправлено';

    end else

      result:='Не удалось отправить сообщение';

  SMTP.Disconnect();

  SMTP.Free;

  msg.Free;

end;

к этой функции надо добавить возможность использования proxy