Código Delphi [-]for i:= pFrom to pTo do s := s + ts[i] + CRLF;
for i:= pFrom to pTo do s := s + ts[i] + CRLF;