procedure TForm1.Button1Click(Sender: TObject); var ListString : TStringList; S : string; begin ListString := TStringList.Create; try Edit1.Text := 'Text1,Text2,Text3'; ListString.Delimiter := ','; S := Edit1.Text; ListString.DelimitedText := S; Memo1.Clear; Memo1.Lines.AddStrings(ListString); finally ListString.Free; end; end;@+