CheckListBox und Memo verwenden

[Luckie]

Da kommen wir der Sache doch schon näher:

Delphi-Quellcode:

var
  Info: array[0..3] of String  = ('Zusatzinfos zu Blumen', 'Zusatzinfos zu Wasser', 'Zusatzinfos zu Luft',
    'Zusatzinfos zu Licht');

procedure TForm3.CheckListBox1Click(Sender: TObject);
begin
  if CheckListBox1.ItemIndex > -1 then
  begin
    Memo1.Clear;
    Memo1.Text := Info[CheckListBox1.ItemIndex];
  end;
end;

Vorraussetzung ist, dass die Reihenfolge identisch ist. Man könnte jetzt die Zusatzinfos als Objekt an die Listbox-Eintäge hängen, aber ich glaube, das übersteigt deinen Kenntnisstand noch etwas. Vorteile aber wäre, dass man die Einträge sortieren könnte, ohne Rücksicht auf das Array mit den Daten nehmen zu müssen.

Du brauchst nicht für jeden Eintrag ein Memo.