Prueba a cambiar esto:
Código Delphi
[-]procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: string);
Por esto otro:
Código Delphi
[-]procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: ansistring);