x: TDateTime;
    P24: integer;
begin
    s := edtP.text;
    P24 := StrToInt(copy((s), 1, pos(':', s) - 1)) div 24;
    x := StrToDate(edtD.Text) + StrToTime(edtT.Text) + P24 + StrToTime(IntToStr(StrToInt(copy((s), 1, pos(':', s) - 1)) - 24 * P24) + copy(s, pos(':', s), length(s) - pos(':', s)));
    case DayOfWeek(x) of
    	1: s := 'Вс';
        2: s := 'Пн';
        3: s := 'Вт';
        4: s := 'Ср';
        5: s := 'Чт';
        6: s := 'Пт';
        7: s := 'Сб';
    end;