[Lazarus] upper & lower case problem

[FreeMan]

fpc r30616 & lazarus r48768 yosemite x64qt
I added test form and unit. I added screenshot 'cos in code Upper__ 
variable and How view in form much better then write. Upperxxxcase hide dots
Is this bug in lazarus or fpc ? or what worng ?
That spells are Turkish spells.
Thank you


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20150419/15289508/attachment-0002.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cchigaed.
Type: image/jpeg
Size: 55514 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20150419/15289508/attachment-0002.jpe>
-------------- next part --------------
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var Lower__, Upper__ : string;
begin
  Lower__ := 'ğüşıöç'; Upper__ := 'ĞÜŞİÖÇ';

  Label1.Caption := 'Lower__ :(' + Lower__ + ') ' +
                    AnsiUpperCase(Lower__) + ' - ' +
                    UpperCase(Lower__) + ' - ' +
                    WideLowerCase(Lower__);
  Label2.Caption := 'Upper__ :(' + Upper__ + ') ' +
                    AnsiLowerCase(Upper__) + ' - ' +
                    LowerCase(Upper__) + ' - ' +
                    WideLowerCase(Upper__);
end;

end.

-------------- next part --------------
object Form1: TForm1
  Left = 421
  Height = 96
  Top = 107
  Width = 483
  Caption = 'Form1'
  ClientHeight = 96
  ClientWidth = 483
  LCLVersion = '1.5'
  object Button1: TButton
    Left = 8
    Height = 25
    Top = 56
    Width = 75
    Caption = 'Button1'
    OnClick = Button1Click
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 8
    Height = 13
    Top = 8
    Width = 39
    Caption = 'Label1'
    Font.CharSet = TURKISH_CHARSET
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Height = 13
    Top = 38
    Width = 39
    Caption = 'Label2'
    Font.CharSet = TURKISH_CHARSET
    ParentColor = False
    ParentFont = False
  end
end