[Pitilingorri]

Bueno, parece ser que finalmente encontre la solución. Seria esta:

Código Delphi [-]
Excel := createOleObject('Excel.Application');  
Excel.Workbooks.OpenText('c:\tmp\Prueba.txt'
        , Origin:=xlWindows
  , StartRow:=18
  , DataType:=xlFixedWidth
     , FieldInfo := ( VarArrayOf([VarArrayOf([0, 7])
    , VarArrayOf([7, 1])
    , VarArrayOf([31, 1])
    , VarArrayOf([53, 1])
    , VarArrayOf([67, 1])]) )); 
Excel.Visible := True;

Espero que le pueda servir a alguien cuando se encuentre con la misma duda