delphi打印的时候为什么中文就乱码呢？

数字，字母都没问题，就是遇到中文乱码，郁闷啊，哪位大神能指点一下？万分感谢

procedure TForm1.Button2Click(Sender: TObject); //第二种方法
Var F:TextFile;
Str:string;
Begin
try
str:='打印机' +chr(10);
AssignFile(F, 'LPT1');//这个一定要的，选中不同打印机打印
Rewrite(F);
Writeln(f,str);
CloseFile(F);
Except
Messagedlg('数据发送失败！',mterror,[mbok],0);
End;
end;

1 看一下你电脑的语言区域设置有没有问题
2 在窗体的Font属性中设置字体, Name='宋体', charset= chinese_gb2312
3 卸了这个控件, 换个别的版本吧

在sql server 里用select 语句执行的结果是好的到delphi里取出的内容就变乱吗了