index:=listbox1.ItemIndex;
image :=groundtiles.Items[index].Image.Picture ;
image1.picture.Assign(image);
{string1:=listbox1.Items.ValueFromIndex[index];
BrushName.Caption :=editorlist.ImageList.Items[index].Name;
 BrushIndx.Caption :=inttostr(index);
tillbrush.ImageIndex:=listbox1.Items.IndexOf(string1)-1; }
editorlist.imagelist.items[0].UnInit(true);
  editorlist.ImageList.Items[0].Picture.Assign(image);
  editorlist.init;
end;