TClientCertExt = class(TClientCert)
private
FStream: TStream;
FFileName: TFileName;
FPassword: string;
public
procedure Assign(ASource: TPersistent); override;
property Stream: TStream read FStream write FStream;
published
property FileName: TFileName read FFileName write FFileName;
property Password: string read FPassword write FPassword;
end;