lost some symbols at end of string

[oddfish49]

Hello!
I have intristing bug:
...
var
  Form1: TForm1;
  CompileCommand: string = 'ABC-РН';
...
      CompileCommand := Registry.ReadString('ComputerName');
  finally
    Edit1.Text := CompileCommand;
Edit1.Text look as: ABC-?
2 last symbols are russian.
Run this program with Delphi looks true.
Anybody, Help me please.

[ASerge]

var
  Form1: TForm1;
  CompileCommand: string = 'ABC-РН';
...
Edit1.Text look as: ABC-?
2 last symbols are russian.

Simple test. What is shown in the Edit for such a code:

Code: Pascal  [Select][+][-]

1. var
2.   CompileCommand: string = 'ABC-РН';
3.  
4. procedure TForm1.Button1Click(Sender: TObject);
5. begin
6.   Edit1.Text := CompileCommand;
7. end;

[oddfish49]

True string: ABC-РН

[ASerge]

True string: ABC-РН

So the error is somewhere else. For example, it is read from the registry or somewhere else. There is no code.

[oddfish49]

So, but this code at Delphi working true. And Register not modified.

[paweld]

Try:

Code: Pascal  [Select][+][-]

1. uses
2.   ..., LConvEncoding;
3.  
4. ...
5.   CompileCommand := WinCPToUTF8(Registry.ReadString('ComputerName'));
6. ...

[oddfish49]

Thank you very much. All OK. 10 years not use windows and fogot any things
Thank you once more