Tbl.Cell( 1 , 1 ).Range.Text:='Распечатано: '+UserName;
InsertDateTime(Tbl.Cell( 1 , 2 ).Range,'MM/dd/yy');

 procedure  InsertDateTime( const  Rng:Range; DateTimeFormat:WideString);
 var  DTF:OleVariant;
    InsertAsField: OleVariant;
    InsertAsFullWidth: OleVariant;
    DateLanguage: OleVariant;
    CalendarType: OleVariant;
 begin 
  DTF:=DateTimeFormat;
  InsertAsField:=True;
  InsertAsFullWidth:=False;  //varnull; 
  DateLanguage:=wdDateLanguageLatin;  //varnull; 
  CalendarType:=wdCalendarWestern;  //varnull; 
  Rng.InsertDateTime(DTF, InsertAsField, InsertAsFullWidth,
    DateLanguage, CalendarType);
 end ;