Gerenciamento do Tempo de Vida de Objetos
F := TFileStream.Create('NewFile.bin', fmCreate);
try
F.Write(Buffer, 1024)
finally
F.Free; // dispose object when it is done
end;F := TFileStream.Create('NewFile.bin', fmCreate);
try
F.Write(Buffer, 1024)
finally
F.Free; // dispose object when it is done
end;