Delphi dicas

Calculando data

Var Q: integer;

W, R: STRING;



begin

        //data do dia

        W := DateToStr(Date);

        //valor q vou tirar da data

        Q := StrToInt('1');

        //R igual data do dia - 1

        R := datetostr(StrToDate(W)-Q);