Установка времени stime (возвращает -1)

FFFFh · Сообщение **FFFFh** » 22.10.2005 23:24

Такая беда. Нужно чтобы юзер мог изменять системное время. Написал такой код в Kylix:

procedure TForm1.Button1Click(Sender: TObject);
var  DTVariable : TDateTime;
     T: TTime_T;
     UT: TUnixTime;
     Ret : Integer;
begin
  __time(@T);
 localtime_r(@T, UT);
 Ut.tm_year:=SpinEdit1.Value-1900;
 Ut.tm_mon:=SpinEdit2.Value;
 Ut.tm_mday:=SpinEdit3.Value;
 Ut.tm_hour:=SpinEdit4.Value;
 Ut.tm_min:=SpinEdit5.Value;
 Ut.tm_sec:=SpinEdit6.Value;
 T:=mktime(UT);
 Ret:=stime(PTime_T(T));
end;

Собрал все под юзером. Запускаю под рутом, Ret=-1. т.е. ни чего не устанавливается.
Возникают два вопроса:
1.) на Kylix такое кто нить уже делал?
2.) что где нужно изменить, чтобы юзер мог изменять системное время?

Дистрибутив: красная шапка версии 5 с копейками.