SSLOptions. Parámetros por string.

[Carmelo Cash]

Hola Foro:

Quería saber si alguien sabe como puedo pasar el parámetro a SSLOpions desde un string.

por ejemplo:

Código Delphi [-]
    Method:=q_Correo.fieldByname('Method').asstring;
    SSLOptions.Method= fStrToAlgo(Method );                       // << Acá es donde hay que arreglar esto

Actualmente estoy haciendo como muestro más abajo, pero queda muy largo sobre todo porque son otros parámetros para UseTLS, Mode, etc.

Código Delphi [-]
    Method:=q_Correo.fieldByname('Method').asstring;

    if Method=  'sslvTLSv1' then begin
      SSLOptions.Method := sslvTLSv1  ;
    end else
    if Method =  'sslvSSLv2' then begin
      SSLOptions.Method := sslvSSLv2  ;
    end else
    if Method =  'sslvSSLv23' then begin
      SSLOptions.Method := sslvSSLv23 ;
    end else
    if Method =  'sslvSSLv3' then begin
      SSLOptions.Method := sslvSSLv3  ;
    end ;

Desde y agracias por su atención.