Var S,T: TFileStream; Begin S:=TFileStream.Create( sourcefilename, fmOpenRead ); try T:=TFileStream.Create( targetfilename, fmOpenWrite ); try T.CopyFrom(S, S.Size ) ; finally T.Free; end; finally S.Free; end; End;