Código
var sStrings: TStrings;
begin
sStrings := TStringList.Create;
try
{ Corpo de trabalho}
finally
sStrings.Free;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009