diff --git a/ssl_openssl.pas b/ssl_openssl.pas
index 7a2678d..ea4fee6 100644
--- a/ssl_openssl.pas
+++ b/ssl_openssl.pas
@@ -515,7 +515,7 @@ begin
       Exit;
     end;
     if SNIHost<>'' then
-      SSLCtrl(Fssl, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, pchar(SNIHost));
+      SSLCtrl(Fssl, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, PAnsiChar(SNIHost));
     x := sslconnect(FSsl);
     if x < 1 then
     begin