uses Classes; var l: TStringList; begin l := TStringList.Create; l.Add('abc'); writeln(l[0]); writeln(l.Text); L.Text := 'pqr'; writeln(l.Text); end.