if Pos('MMMM',ShortDateFormat)=0 then ShortDateFormat:= Copy(ShortDateFormat,1,Pos('MMMM', ShortDateFormat)) +Copy(ShortDateFormat,Pos('MMMM',ShortDateFormat)+3,Length(ShortDateFormat)); if Pos('MMM', ShortDateFormat)=0 then ShortDateFormat:= Copy(ShortDateFormat,1,Pos('MMM', ShortDateFormat)) +Copy(ShortDateFormat,Pos('MMM',ShortDateFormat)+2,Length(ShortDateFormat));