有关系统延时的问题

Question

本人在一个过程中调用了一个延时的过程，延时过程如下：
procedure Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
 Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;调用的过程如下：
 objsocket:=tclientsocket.Create(application);
    objsocket.Address:='192.168.0.99';
    objsocket.ClientType:=ctBlocking;
    objsocket.Port:=8889;
    objsocket.Active:=true;
    objsocket.OnConnect:=chatform.ClientSocket1Connect;
    objsocket.OnRead:=chatform.clientSocketRead;
    chatform.timer1.enabled:=false;
    delay(2000);
为何在延时阶段，程序会一直执行此过程的代码,如上将会创建很多对象，不知道何故？

Answer 1

sleep函数不就可以延时了吗？不用自己写函数的。

Answer 2

要注意sleep函数会导致程序没有响应的Application.ProcessMessages会处理额外的消息，可能你的过程有重入的问题，可以使用Lock技术，锁定过程的if Lock then Exit;
Lock
do...
Unlock

Answer 3

请问怎么lock，请讲明白点好吗，lock后其他线程能执行吗。