procedure clear_plugins_list_frm2(levl:Integer);
begin
while(form2.Tools1.Count>levl) do form2.Tools1.Delete(levl);
End;