ListBox

[shader]

Vielen Dank, hat perfekt geklappt.
@oldmax Dank auch an Dich für die super Erklärung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edt_Farben.Text:=Lst_Farben.Items[Lst_Farben.ItemIndex];
end;