libeay32 не работает чтение публичного ключа

[Winexcel]

Доброго времени суток!
Делал всё по статье, https://habrahabr.ru/post/280302/, сгенерировал публичный и приватный ключ, сделал инициализацию софта, и пытаюсь загрузить приватный и публичный ключ в софт, но вот не задача, публичный ключ не загружается а приватный загружается, не могу понять что делаю не так, в логе вижу следующее:

error:02001002:system library:fopen:No such file or directory
error:20074002:BIO routines:FILE_CTRL:system lib
error:20068078:BIO routines:BIO_gets:uninitialized
error:0906D06C:PEM routines:PEM_read_bio:no start line

В данном случае ругается на публичный ключ, если заккоментить строчку с загрузкой публичного то ошибок нет.
Весь код:

procedure LoadSSL;
begin
  OpenSSL_add_all_algorithms;
  OpenSSL_add_all_ciphers;
  OpenSSL_add_all_digests;
  ERR_load_crypto_strings;
  ERR_load_RSA_strings;
end;

procedure FreeSSL;
begin
  EVP_cleanup;
  ERR_free_strings;
end;

function LoadPublicKey(KeyFile: string) :pEVP_PKEY ;
var
  mem: pBIO;
  k: pEVP_PKEY;
begin
  k := nil;
  mem := BIO_new(BIO_s_file());
  BIO_read_filename(mem, PAnsiChar(KeyFile));
  try
    result := PEM_read_bio_PubKey(mem, k, nil, nil);
  finally
    BIO_free_all(mem);
  end;
end;

function LoadPrivateKey(KeyFile: AnsiString) :pEVP_PKEY;
var
  mem: pBIO;
  k: pEVP_PKEY;
begin
  k := nil;
  mem := BIO_new(BIO_s_file());
  BIO_read_filename(mem, PAnsiChar(KeyFile));
  try
    result := PEM_read_bio_PrivateKey(mem, k, nil, nil);
  finally
    BIO_free_all(mem);
  end;
end;

procedure ReadKeys();
var
  FPublicKey: pEVP_PKEY;
  FPrivateKey: pEVP_PKEY;
  err: Cardinal;
begin
  FPublicKey := LoadPublicKey('C:\RSA\Public.key');
  FPrivateKey := LoadPrivateKey('C:\RSA\Private.key');

  if (FPublicKey = nil) or (FPrivateKey = nil)  then
  begin
    err := ERR_get_error;
    repeat
      FormMain.RSALog.Lines.Add(string(ERR_error_string(err, nil)));
      err := ERR_get_error;
    until err = 0;
    end;
end;


procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeSSL();
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  LoadSSL();
  Path := ExtractFilePath(Application.ExeName);
  ReadKeys();
end;

Помогите кто знает что не так делаю.

[Winexcel]

Проблема решена, решение - использовать кодировку ANSI для передачи путей к ключам.

[Winexcel]

От одной проблеме плавно перешли к другим:

error:02001005:system library:fopen:Input/output error
error:20074002:BIO routines:FILE_CTRL:system lib
error:20068078:BIO routines:BIO_gets:uninitialized
error:0906D06C:PEM routines:PEM_read_bio:no start line

Кто знает как решить?
Компилирую https://github.com/ddlencemc/RSA-via-OpenSSL-libeay32 в Delphi 10 Seattle

[p51x]

Положить правильные ключи в правильное место