Arkadaşlar alttaki kodu kullanarak kopyalama işlemi yapmak istiyorum ama her defasında hata veriyor bir arkadaşımız bana proje olarak veya hata varsa hatanın duzeltilmiş versiyonunu buraya koyabilir mi acaba?

Kod:
Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate ); try T.CopyFrom(S, S.Size ) ; finally T.Free; end; finally S.Free; end; End;

__________________