const
MNAME: array[1..12] of string = ('ENE','FEB','MAR','ABR',
'MAY','JUN','JUL','AGO','SEP','OCT','NOV','DIC');
var
AuxMonth: array[1..12] of string;
procedure TForm1.FormCreate(Sender: TObject);
begin
move(FormatSettings.ShortMonthNames, AuxMonth, SizeOf(FormatSettings.ShortMonthNames));
move(MNAME,FormatSettings.ShortMonthNames, SizeOf(MNAME));
Database.Connected := True;
Transaction.StartTransaction;
tbKardex.Open;
TDateField(tbKardex.FieldByName('ID_FEC')).DisplayFormat:= 'dd/mmm/yy';
end;