VCL Delphi

Code By GeNiUS !
genius_user@yahoo.com
procedure TForm1.Button1Click(Sender: TSender);
var
Icon: TIcon;
begin
Icon := TIcon.Create;
Icon.LoadFromFile('ORANGE.ICO');
ListBox1.Items.AddObject('Orange', Icon);
end;