Fórum Como faço para utilizar a função DayOfWeek ? #323101

Amigos,

Como faço para corrigir o erro nesta rotina ?

Utilizando Delphi 2006 tipo de aplicação Windows Forms

function TWinForm1.mostra: string;
var
strdata: DateTime;
strdia: integer;
strsemana: String;
begin
strdata := DateTime.Now.Date;

strdia := DayOfWeek(strdata); *// Linha com erro*

case strdia of
1: strsemana := ´Domingo´;
2: strsemana := ´Segunda´;
3: strsemana := ´Terça´;
4: strsemana := ´Quarta´;
5: strsemana := ´Quinta´;
end;
Result := strsemana + ´--´+ Convert.ToString(strdata);

end;

Como faço para utilizar a função DayOfWeek ?

Marcos Antonio