unit testform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,SelecterListbox; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; lb: TSelecterListBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure lbClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var n : integer; begin lb.top:=100; lb.left:=100; lb.width:=400; lb.height:=370; lb.color:=clblack; lb.font.name:='arial'; lb.font.color:={viewgit}{/viewgit}00C6F7; lb.font.size:=20; lb.linespacing:=1.5; lb.clear; for n:=0 to 100 do lb.items.add('BLAH BLAH'+inttostr(n)); end; procedure TForm1.Button2Click(Sender: TObject); var n : integer; begin for n:=0 to 100 do begin if lb.IsSelected(n)=true then memo1.lines.add(lb.items[n]); end; end; procedure TForm1.lbClick(Sender: TObject); begin memo1.lines.add(inttostr(lb.itemindex)); end; end.