case auswahl.ItemIndex of 0:begin Code.Text:='Test'; end; 1:begin Code.Text:='Test1 Test 2'; end; end;
Memo1.Lines.Add('erste Linie'; Memo1.Lines.Add('zweite Linie'; Memo1.Lines[0] := 'neue erste Zeile'; Memo1.Lines.Add('dritte Linie';