Tuossa olisi Tlistbox komponentista. Jos valitsee (1, 2 tai 3:sta) 2:en niin se näkyy label1:sä.
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
listbox1.items.add('1');
listbox1.items.add('2');
listbox1.items.add('3');
Label1.caption := ListBox1.Items[ListBox1.ItemIndex];
end;Aihe on jo aika vanha, joten et voi enää vastata siihen.