delphi dia de la semana

procedure TForm1.Button1Click(Sender: TObject);
var
diaSemana: string;
begin
diaSemana := FormatDateTime('dddd', Date);

showmessage(diaSemana);
end;