OnItemSelected (ImageList Control) example for Delphi 4

procedure TForm1.LEADImgList1ItemSelected (Sender: TObject;
  nIndex: Integer);
begin
   ShowMessage(LEADImgList1.Item[nIndex].Text  + ' was selected!');
end;