спасибо left работает на счёт пересчета всех панелей
думаю нужно вести какой то учёт панелей к примеру LIstBox а при добавлении панели нужно перебрать имеющиеся и разделить всё вот тут и загвоздка
Код:
for i:=0 to Panel1.ControlCount-1 do
if (Panel1.Controls[i] is TPanel) then
begin
end;