procedure TForm1.Button1Click(Sender: TSender);
var Icon: TIcon;
begin
Icon := TIcon.Create;
Icon.LoadFromFile('DELPHI.ICO');
ListBox1.Items.AddObject('Delphi', Icon);
end;