[[egostar]]

No se si haya una función que te haga lo que quieres, aqui te pongo un código que hace lo que necesitas, puede ser que haya algo mejor, pero esto te servirá.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  Meses : Array [1..12] of String =
          ('ENE','FEB','MAR','ABR','MAY','JUN',
           'JUL','AGO','SEP','OCT','NOV','DIC');
var
  Fecha,Mes: String;
  MesI,I: Integer;
begin
  Fecha := '01/May/07';
  Mes   := Copy(Fecha,4,3);
  For I := 1 to 12 do begin
      if UpperCase(Mes) = Meses[i] then
         MesI  := I;
  end;
  ShowMessage(Copy(Fecha,1,3)+Format('%.*d',[2,MesI])+Copy(Fecha,7,3));
end;

Salud OS