Динамическое создание и удаление элементов интерфейса - Lazarus - Ответ 1632241

     Title[0]:=TButton.Create(FormStreets);
     Title[0].Parent :=FormStreets;
     Title[0].Width  :=100;
     Title[0].Height :=23;
     Title[0].Caption:='';
     Title[0].Left   :=0;
     Title[0].Top    :=23;
     Title[1]:=TButton.Create(FormStreets);
     Title[1].Parent :=FormStreets;
     Title[1].Width  :=100;
     Title[1].Height :=23;
     Title[1].Caption:='Улица';
     Title[1].Left   :=100;
     Title[1].Top    :=23;
     GetMem(Streets,book.StreetsCount*sizeof(TEdit));
     for i:=0 to book.StreetsCount-1 do
     begin
          (Streets+i)^:=TEdit.Create(FormStreets);
          (Streets+i)^.Parent:=FormStreets;
          (Streets+i)^.Width :=100;
          (Streets+i)^.Height:=23;
          (Streets+i)^.Left  :=100;
          (Streets+i)^.Top   :=23+i*23;
          (Streets+i)^.Text  :=(book.StreetsData+i)^;
     end;