Formun başlığında bugünü yazdırma

Formun başlığında bugünün hangi gün olduğunu yazdırma.

procedure TForm1.FormCreate(Sender: TObject);
var
tarih:TDate;deger:integer;
begin
tarih:=date;// bugünkü tarih
deger:=DayOfWeek(tarih); // aktar
if deger=1 then // dallandır
Form1.Caption:='Bugün Pazar'
else if deger=2 then
Form1.Caption:='Bugün Pazartesi'
else if deger=3 then
Form1.Caption:='Bugün Salı'
else if deger=4 then
Form1.Caption:='Bugün Çarşamba'
else if deger=5 then
Form1.Caption:='Bugün Perşembe'
else if deger=6 then
Form1.Caption:='Bugün Cuma'
else if deger=7 then
Form1.Caption:='Bugün Cumartesi';
end;

İyi çalışmalar.