[Bug 16349] Text is garbled in Teach 2000

http://bugs.winehq.org/show_bug.cgi?id=16349

--- Comment #7 from bas   2008-12-18 10:00:37 ---
This is the source of the test application:

procedure TForm13.RichEdit1SelectionChange(Sender: TObject);
begin
  if fsBold in T2KInputEdit1.SelAttributes.Style then
    Caption := 'Fontstyle: [Bold]'
  else
    Caption := 'Fontstyle: []';
end;

procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
  if fsBold in T2KInputEdit1.SelAttributes.Style then
    T2KInputEdit1.AddStyleToSelection(fsBold, False)
  else
    T2KInputEdit1.AddStyleToSelection(fsBold, True);
end;