[NeiL]

Господа программисты, как можно оптимизировать нижеописанный код:

Код:

function ReceivePoint: TPoint;
 begin
   if X < 0 then
   begin
     Result := Point(-1, 0);
     SetTimer(
     Handle, FKeyId_TranslocateIn,
       const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
   end
   else
   if Y < 0 then
   begin
     Result := Point(0, -1);
     SetTimer(Handle, FKeyId_TranslocateIn,
       const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
   end
   else
   if (X > FDownCtrl.Width -
       TCustomRangeBar(FDownCtrl.ScrollBars.Slave).Width) then
   begin
     Result := Point(1,  0);
     SetTimer(
     Handle, FKeyId_TranslocateIn,
       const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
   end
   else
   if (Y > FDownCtrl.Height -
        TCustomRangeBar(FDownCtrl.ScrollBars.Master).Height) then
   begin
     Result := Point(0,  1);
     SetTimer(Handle, FKeyId_TranslocateIn,
       const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);
   end
   else
   begin
     KillTimer(Handle, FKeyId_TranslocateIn);
   end;
 end;