procedure TDataModule1.IdServerIOHandlerSSLOpenSSL1GetPassword(var Password: ansistring);
begin
Password := 'pass';
end;

function TDataModule1.IdServerIOHandlerSSLOpenSSL1VerifyPeer(Certificate: TIdX509; AOk: boolean;
ADepth: integer): boolean;
begin
Result := True;
end;

procedure TDataModule1.IdHTTPServer1Connect(AContext: TIdContext);
begin
if (AContext.Connection.IOHandler is TIdSSLIOHandlerSocketBase) then
 TIdSSLIOHandlerSocketBase(AContext.Connection.IOHandler).PassThrough :=
  AContext.Connection.Socket.Binding.Port <> 443;
AContext.Binding.SetKeepAliveValues(True, 60000, 20000);
end;

procedure TDataModule1.IdHTTPServer1QuerySSLPort(APort: word; var VUseSSL: boolean);
begin
VUseSSL := APort = 443;
end;

if EnaHTTPS then
begin
 IdHTTPServer1.Bindings.Add.Port := 443;
 IdServerIOHandlerSSLOpenSSL1.SSLOptions.CertFile := PrgState.PrgDir + 'sertificate\server.crt';
 IdServerIOHandlerSSLOpenSSL1.SSLOptions.KeyFile := PrgState.PrgDir + 'sertificate\server.key';
end;