Mouse over en Form & popup menu

Jeg har lavet en Top Menu (lidt hen af værktøjsline i bunden af windows), så der det det med musen hen over formen som ikke virker helt som det skal, jeg har lavet dette her :

procedure TTopMenuForm1.Timer1Timer(Sender: TObject);
var
  pt: TPoint;
begin
  GetCursorPos( pt );
    With TopMenuForm1 do
  pt := TopMenuForm1.ScreenToClient( pt );
  IF pt.y < Panel1.ClientHeight then
    Begin
      TopMenuForm1.Visible := True;
    end
  else
    Begin
        IF TopMenuForm1.Visible = True Then
          Begin
            GetCursorPos( pt );
            pt := LMDButton1.ScreenToClient( pt );
            With LMDButton1.DropDownMenu do
              Begin
                IF (pt.x < 450) and (pt.y < 270) Then
                  Begin
                    TopMenuForm1.Visible := True;
                  end
                else
                  Begin
                    TopMenuForm1.Visible := False;
                  end;
              end;
            end
          else
            Begin
              TopMenuForm1.Visible := False;
            end;
    end;
end;

Er der en eller anden som kan hjælpe mig til at få det til at virke rigtigt.