请教？3个Delphi问题！(30分)

1、如何把鼠标控制在窗体之内。2、在Delphi中到底有没有更改日期的函数，
不要说用WinAPI函数，因为用WinAPI函数改日期到能改，可把时间改的就不对了，
请大家告诉我其它方法。3、请大家告诉我Delphi中的字符截取函数，就向VB中
的MID$、lift$、right$函数一样!

1.不知道
2.用WinApi，改不正确可能是代码有问题，我改过，可以的。如下:
function SetTime(sTime : string):boolean;
var
systime:Tsystemtime;
begin
DateTimeToSystemTime(StrToDateTime(sTime),systime);
Result := SetLocalTime(systime);
end;
3.Delphi6有StrUtils单元，提供LeftStr,RightStr. Mid$类似于Delphi中的Copy.

1
如何将鼠标锁定在一定的范围内呢？
请在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下:
// 限制
procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
end;

// 还原
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;

我是要设置时期的

多人接受答案了。