procedure RegisterSSL(
    const AProduct: String; 
    const AVendor: String; 
    const ACopyright: String; 
    const ADescription: String; 
    const AURL: String; 
    const AClientClass: TIdClientSSLClass; 
    const AServerClass: TIdServerSSLClass
);