Erro Com variaveis!!!!!!!!!!!!!!

Estou declarando este código, e no entanto guando compilo tenho um erro como resposta.


{$R *.dfm}
Function TFrmCadCliente.DataPorExtenso:String;
Const
Meses :Array [1..12] of String = (´Janeiro´,´Fevereiro´,´março´,´Abril´,´Maio´,
´Junho´,´Julho´,´Agosto´,´Setembro´,´Outubro´,´Novembro´,´Dezembro´);
Semana:Array [1..7] of String = (´Domingo´,´Segunda-Feira´,´Terça-Feira´,´Quarta-Feira´,´Quinta-Feira´,´Sexta-Feira´,´Sábado´);
var
Dia,Mes,Ano,DiaSem:Word;
begin
DecodeDate(Date,Mes,Ano,dia);
DiaSem:= DayOfWeek(date);[color=red:0345827b17]
(esta é a linha 72) Result:= Semana[diaSem] = ´,´ + IntToStr(Dia) + ´de ´+ Meses[Mes] + ´de´+ IntToStr (Ano);[/color:0345827b17]end;

este éo erro:

[b:0345827b17][Error] U_CadCliente.pas(72): Incompatible types: ´String´ and ´Boolean´
[/b:0345827b17]
A onde estou errando?
Me ajudem por favor?
Erivan marinho.