질문에 답변을 달아 주셔서 감사합니다.
에러에 대한 부분을 축약하여 올립니다.

배열을 const로 선언 후 함수 내에서 배열 값을 바꾸려고 할 때 에러가 나는 것 같은데요.
어떻게 해야 하나요?
-------------------------------------------------------
library MyUDF;

uses
  SysUtils,
  Classes;

{$R *.res}

const
  m : array[0..11] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

function sol2lun1p(solYear: Word; solMonth: Word; solDay: Word): string; export;
var
  m0, m1, m2 : Integer;
  i, j : Integer;
  temp : Integer;
  acc_day : LongInt;
  buff_day : LongInt;
  total_day : LongInt;
  lunYear: Word; lunMonth: Word; lunDay: Word; isLeap: Boolean;
begin

// *************************************
// 에러발생 *****************************
// m 이라는 배열을 함수 밖에서 선언했는데 이것이 잘못 인듯 합니다.
// *************************************
  if ((solYear mod 4=0) and not (solYear mod 100=0)) or (solYear mod 400=0) then 
    m[1] := 29 
  else 
    m[1] := 28;

// *************************************
// 에러발생 *****************************
// 캐스팅 에러 인듯 합니다.
// *************************************
  Result:= IntToStr(lunYear) + IntToStr(lunMonth) + IntToStr(lunDay);
end;

exports sol2lun1p;

begin
end.