Les informo que funciono el codigo sugerido por ecfisa, solo unas modificaciones para aquellos que estamos trabajando con XE en adelante, en vez de SysUtils.ShortMonthNames deben utilizar FormatSettings.ShortMonthNames y la parte donde se busca el campo con la fecha debe declararse despues de abrir la tabla ya que genera un error al no encontrar el campo, entonces el codigo fuente queda asi:
Código Delphi
[-]
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;