procedure TForm1.BitBtn1Click(Sender: TObject);
begin
case dayofweek(Strtodate('16.11.2001')) of
1: Label1.Caption:='pazar';
2: Label1.Caption:='pazartesi';
3: Label1.Caption:='salı';
4: Label1.Caption:='çarşamba';
5: Label1.Caption:='perşembe';
6: Label1.Caption:='cuma';
7: Label1.Caption:='cumartesi';
end;
end;