fpc/packages/openssl/examples/test1.pas

program test1;

{$mode objfpc}{$H+}

uses
  OpenSSL;

begin
  if InitSSLInterface then
    Writeln('Success')
  else
    Writeln('Holy shit!');
end.