Page Comparison

uses
  Classes; // unit que tem a definição da classe TStringList

var
  str : TStringList; //declaração da variável
begin
  str := TStringList.Create; // criação do objeto
  try
    str.add('Testando'); //utilização do objeto
    str.add(' ciclo de vida');
    str.add(' de objetos no script.');
    
    ShowMessage(str.Text);
  finally
    str.free; //destruição/eliminação do objeto
  end;
end;