[ecfisa]

si el nombre contiene espacios no funciona

Tenés razón, eso me pasa por hacer las cosas en el aire.

De este modo renombra correctamente el archivo usando nombres cortos (con y sin espacios):

Código Delphi [-]
...
var
  Origen, Destino: string;
begin
  OpenDialog1.Execute;
  Origen   := GetshortName(Opendialog1.FileName);
  Destino  := GetShortName(ChangeFileExt(Origen, '.INF'));
  ShowMessage(Origen+#10#13+Destino);  // las cadenas sólo difieren en '.INF'
  ...

Saludos.