Hi,
du musst im OnClick Ereigniss der ListBox folgendes schreiben:
Delphi-Quellcode:
if ListBox1.ItemIndex = -1 then
exit; //Fals kein Item existiert einen Felher beim Anklicken vermeiden und stattdessen die Procedure verlassen
if ListBox1.Items[ListBox1.ItemIndex] = 'Milch' then //Abfragen, ob das aktuell markierte Item den Wert "Milch" hat
Label1.Caption := '150'; //Wenn ja, dann die Caption zuweisen
Florian