Cofnięcie daty o jeden dzień

Problem wygląda tak:
Program się uruchamia i pokazuje datę jaka była wczoraj, czy ktoś wie jak to zrobić?
--Delphi 6 Personal
15 lat

var Date:TSystemTime;
begin
GetSystemTime(Date);
caption:=INTtoStr(Date.wDay);
end;--||===

uses
DateUtils;

Label1.Caption:=DateToStr(Yesterday);--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

lub jeszcze inaczej:

Label1.Caption:=DateToStr(now-1);