procedure SetLocaleFormatSettings(land:dword);
var i:dword;
    fs:TFormatSettings;
begin
GetLocaleFormatSettings(land,fs);
for i:=1 to 7 do begin
ShortDayNames[i]:=fs.ShortDayNames[i];
LongDayNames[i]:=fs.LongDayNames[i];
                 end;
for i:=1 to 12 do begin
ShortMonthNames[i]:=fs.ShortMonthNames[i];
LongMonthNames[i]:=fs.LongMonthNames[i];
                 end;
end;

var s:string;
begin
SetLocaleFormatSettings(LANG_ENGLISH);
s:=FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time);
SetLocaleFormatSettings(LANG_RUSSIAN);
s:=FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time);