Retornando o dia da semana em formato string

Function DiadaSemana(Data : String) : str13;
const
semana : array[1..7] of str13 = ('Domingo','Segunda-feira','Terça-feira','Quarta-feira','Quinta-feira','Sexta-feira', 'Sábado');
begin
Result := semana[DayOfWeek(strtodate(Data))]
end;