Ich habe es jetzt folgend gelöst!
Finde die Lösung aber nicht besonder schön!
Delphi-Quellcode:
procedure TForm1.LV_ProdukteClick(Sender: TObject);
begin
if LV_Produkte.selected.caption = null then begin
end else begin
selected_Produkt:= strtoint(LV_Produkte.Selected.caption);
showmessage(inttostr(selected_Produkt));
Zeit_laden();
end;
end;
LG