Delphi Delphi получить недельную функцию

[Lomanu4]

Function GetWeek( dtTarih: TDateTime ): String;
begin
Case DayOfWeek( dtTarih ) of
1 : Result := 'Понидельник';
2 : Result := 'Вторник';
3 : Result := 'Среда';
4 : Result := 'Четверг';
5 : Result := 'Пятница';
6 : Result := 'Суббота';
7 : Result := 'Воскресенья';
End;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
ShowMessage( GetWeek( DateTimePicker1.DateTime ) );
end;