OnItemSelected (ImageList Control) example for Delphi 4
procedure TForm1.LEADImgList1ItemSelected (Sender: TObject; nIndex: Integer); begin ShowMessage(LEADImgList1.Item[nIndex].Text + ' was selected!'); end;