VCL Delphi

//ListBox nesnesinin yanına icon eklemek için
//Affan KAHYA
procedure TForm1.Button1Click(Sender: TSender);
var
Icon: TIcon;
begin
Icon := TIcon.Create;
Icon.LoadFromFile('icon.ICO');
ListBox1.Items.AddObject('icon', Icon);
end;