[Heneken]

Во втором листинге кода ошибка(менял имя панели,в этом листе не заменил) Ну и не указана процедура .Вот так верно

Код:

procedure TFORM_GLAV.eventes_formsMessage(var Msg: tagMSG;
  var Handled: Boolean);
  var poz_W_p,poz_H_p,poz_w,poz_h:integer;
begin
if (scrols_bot_top=true) or(scrols_left_right=true) then
begin
poz_W_p:=mouse.CursorPos.X-FORM_GLAV.Left;
poz_H_p:=mouse.CursorPos.Y-FORM_GLAV.Top;
poz_w:=poisks.left+poisks.width;
poz_h:=poisks.height+poisks.Top;
if ((sh_no_spee.width>560)and(poz_W_p<poz_w) and (scrols_left_right=true)and (scrols_bot_top=false))or((sh_no_spee.width<290)and(poz_W_p>poz_w)and (scrols_left_right=true)and (scrols_bot_top=false)) or((sh_no_spee.Height<220)and(poz_H_p>poz_h)and (scrols_left_right=false)and (scrols_bot_top=true))or((sh_no_spee.Height>550)and(poz_h_p<poz_h)and (scrols_left_right=false)and (scrols_bot_top=true))then
begin
tajmer.Enabled:=true;
end
else
if (sh_no_spee.width<290) or(sh_no_spee.width>560)or(sh_no_spee.Height<220)or(sh_no_spee.Height>550) then tajmer.Enabled:=false
                                                                                    else tajmer.Enabled:=true;
end;