Simply call the objects free method. The following example attaches a icon object to the strings property of a listbox during the forms creation, and frees the icon when the form is destroyed.

Example:

procedure TForm .FormCreate(Sender: TObject); var Icon: TIcon; begin Icon := TIcon.Create; Icon.LoadFromFile('C:\Program Files\BorlandImages\CONSTRUC.ICO'); ListBox .Items.AddObject('Item 0', Icon); end;

procedure TForm .FormDestroy(Sender: TObject); begin ListBox .Items.Objects[0].Free; end;

7/ 6/98 4:3 :28 PM