function TdOPCCertForm.dOPCUAClient1GetCertificate(Sender: TObject; var PrivateKey, PublicCertificate: TStream): Boolean;
var
FileName: string;
begin
FileName := ExtractFilePath(Application.ExeName)+'OnCert';
PrivateKey := TFileStream.create(ChangeFileExt(Filename,'.pem'),fmOpenRead);
PublicCertificate := TFileStream.create(ChangeFileExt(Filename,'.der'),fmOpenRead);
result := true;
end;