[lmikle]

Ну, например, как то так:

Код:

procedure TForm1.ListBox1Click(Sender : TObject);
begin
  If ListBox1.ItemIndex > -1 Then
    ShowMessage(ListBox2.Items[ListBox1.ItemIndex])
end;