Fórum Strem Urgente preciso de ajuda #161952

Este exemplo eu tirei do help do Delphi e fiz algumas modificações, espero que ajude. Ele copia de um arquivo para outro usando streams.

procedure CopiarArquivo(ArquivoAnterior, NovoArquivo: String);
var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
// Carrega o arquivo para o Stream
OldFile := TFileStream.Create(ArquivoAnterior, fmOpenRead or fmShareDenyWrite);
try
// Cria o Stream para um novo arquivo
NewFile := TFileStream.Create(NovoArquivo, fmCreate or fmShareDenyRead);

try
// Copia o arquivo de um Stream para o outro
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
// Libera a memoria
FreeAndNil(NewFile);
end;
finally
// Libera a memoria
FreeAndNil(OldFile);
end;
end;

end;

so que como eu vou salvar este arquivo que esta em uma stream no disco

alguem sabe?