那用那么麻烦，还用控制面板改区域设置什么的，
改一下ShortMonthNames不就结了？？？一个小例子：
unit Unit1;
interface
uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
; StdCtrls;
type
; TForm1 = class(TForm)
; ; Button1: TButton;
; ; Button2: TButton;
; ; procedure Button1Click(Sender: TObject);
; ; procedure Button2Click(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; { Public declarations }
; end;
var
; Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
; i:Integer;
begin
; for i := 1 to 12 ;do
; begin
; ; ;ShortMonthNames:= '第 '+IntToStr(i)+' 月';
; end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
; s:String;
begin
; s:=formatDateTime('YYYY-MMM-DD',Date);
; ShowMessage(S);
end;
end.
你可以试试，在按下Button1前后，显示的日期有什么不同。只要在系统初始化
时运行一次，就对程序终身有效，但不影响其它程序（不象控制面板->区域设置）
