[punchao]

i add this

Result.Tmr:= TTimer.Create(hParent);
with Result.Tmr do begin
OnTimer:=@LockTimer;
Interval:=1;
if hLock then
Enabled:=True
else
Enabled:=False;
end;


but when I minimize it or click else where it gets locked again equally