HorizontalAlignment property of the Range class error

برای تنظیم HorizontalAlignment و VerticalAlignment در تنظیمات خروجی اکسل دلفی اگر با xlleft , ... مشکل داشت میتوان از کدهای زیر استفاده کرد

For VerticalAlignment:

Top:    -4160
Center: -4108
Bottom: -4107

And HorizontalAlignment:

Left:    -4131
Center:  -4108
Right:   -4152

var WrkSheet : oleVariant;  

begin

WrkSheet:=CreateOleObject('Excel.Application');
  WrkSheet.displayAlerts:=false;
  WrkSheet.WorkBooks.add;
  WrkSheet.ActiveSheet.Name := 'Sheet1';

  WrkSheet.Range['A1','A1'].HorizontalAlignment:= -4108;

end