[k@Z@k]

Код:

ExApp:= CreateOleObject('Excel.Application');
ExApp.workbooks[1].worksheets[1].rang['a1:b2'].NumberFormat:='000-00-00';