Kopiowanie plików waszą funkcją

No więc mam problem z jednym z waszych artykułów...

mam te funkcje (jest ona konieczna, nie mogę użyć copyfile)...

function kopiuj(from,where:string):boolean;
var
  plik1,plik2:File;
  rekord:Integer;
  Buf:array[1..4096] of byte;
  fm:integer;
begin
  fm := filemode;
  filemode := 0;
  AssignFile(plik1,from); {kojarzymy zmienną z plikiem}
  AssignFile(plik2,where); {kojarzymy zmienną z plikiem}
  Reset(plik1,1);
{tworzymy plik, do ktorego zapiszemy dane i ustawiamy sie
na poczatku}
  Rewrite(plik2, 1);
  while not Eof(plik1) do
  begin
    BlockRead(plik1,buf,sizeof(buf),rekord); {czytamy rekord}
    BlockWrite(plik2,buf,sizeof(buf),rekord); {wpisujemy rekord}
  end;
  Closefile(plik1); {zamykamy plik}
  CloseFile(plik2); {zamykamy plik}
  filemode := fm;
  result := true;
end;

a kiedy kopiuje plik aaa.txt

lol
aaa
sadasd
asdasd
asd
asdddd
Piotrek---

to plik sss.txt (tak te tego kopiuje, funkcja sama go tworzy) jest

lol
aaa
sadasd
asdasd
asd
asdddd
Piotrek---î ×>ÔwĽë â>ÔwĽó ě ON
Ś €t ŘE Ľó C : \ P r o g r a m F i l e s \ B o r l a n d \ D e l p h i 7 \ P r o j e c t s \ P r o j e c t 1 . e x e @ @ Śě Äě •‘| @ bÄ „ß lí Ří ´E °E í T'‘| °E 7)‘|,F 3‘|,F @ @ @ äě @ í •‘| @ Dí @ @ |í u)‘| @ ą)‘|,F @ @ 3‘| T @ @ @ °E ,F 4í @ î î|Ŕ)‘|˙˙˙˙ą)‘|Y,‘| @ Đ·E đí 7)‘|™,‘| @ €í čí î ·,‘| T Đ·E đí Ž €| @ Đ·E : őˇ”|đ ôµ‘|†¶‘| : ŕí µAÔw : őˇ”|@ ôµ‘|Ř>: śĎD Č: ੠0ÖE @ î M: 0ÖE x: ă”ÓwŐ˛Ówd- ž : őˇ”|¤đ ôµ‘|†¶‘| : : ŕ>: Č: †¶‘| : ř>: x: Tî ď ŇßÓw M: g@ : őˇ”|ń ôµ‘|†¶‘| : ˙˙˙˙ @: d- M: g@ x: g@ Ő ±‹ÓwĐ>: x: 2Ów\ď @: g@ x: M: @ x: 32 : M: ń Ów˙˙˙˙0 ŔÓw ¨>: x: ¨>: °>: x: M: \ \: Č: 0 : ěí |đ î|¶‘|˙˙˙˙†¶‘|Śđ ˘Ř–|: †Ř–| : : D †¶‘| \ řL: : ŕJ: čJ: Đ>: ¨>: 0 =[ đ h: ¬ň x: čJ: †Ř–|ť”| : D †¶‘| : ˘Ř–|ŕJ: †Ř–|ŕJ: čJ: : ¶‘| Pń =[Ŕ&: h: x: : ôî „ń î|¶‘|˙˙˙˙†¶‘|”ń ˘Ř–|: †Ř–| : : ôµ‘|†¶‘|Ü : =[Ŕ&: ń =[Ŕ&: lń lń ±‹Ówh Ůw ¤ń :ĂÓwÔŹÓwśň x [ xń |ń ř ”ÖwŘŹÓw˙˙˙˙ÔŹÓwĂH[ x [öH[öH[3jńwjńw[› ¨>: 4›”|č>: : ¨>: Řň Řň Dj’| : ľj’|¨>: : °>: € ÷^{[°>: p: hI: Đ: XJ: Ľ Č: T r t ň zH[ŽH[< [ ”ô ÷}[śň |U[ô ó˙˙˙ Ľ T r h e =[Ŕ&: ó =[Ŕ&: ó ó ±‹Ówh Ůw Dó :ĂÓwÔŹÓw¸ô x [ ó ó ř ”ÖwŘŹÓw˙˙˙˙ÔŹÓwĂH[ x [öH[öH[Ŕ&: xó =[Ŕ&: „ó „ó ±‹Ówh Ůw Ľó :ĂÓwÔŹÓwĽô x [ ó ”ó ř ”ÖwŘŹÓw˙˙˙˙ÔŹÓwĂH[ x [öH[öH[ ő˙˙˙ T a h o m a t (ô zH[ŽH[°ö ][F: Ä z ÜD: ¤D: &][ é˙˙˙ ţ˙˙˙ »˙˙˙ Đ˙˙˙ Ň˙˙˙ ç˙˙˙ ń˙˙˙ ţ˙˙˙
Ä x t ô ó˙˙˙ Ľ T r e b u c h e t M S ő˙˙˙ Ľ T a h o m a ő˙˙˙ T a h o m a ő˙˙˙ T a h o m a ő˙˙˙ I: 4›”|pI: č îţîţ : I: p÷ p÷ Dj’| : ľj’| I: : I: >: 4›”|¸>: @ îţîţ : >: ´÷ ´÷ Dj’| : ľj’|>: : >: I: ř >: Đ: ľj’|d÷ éÍ–| : : t÷ >: I: : p÷ Ô÷ î| ä÷ đŕ–| : ľj’|¸÷ éÍ–| : >: : >: ´÷ ř î| : (ř đŕ–|: Ôŕ–| : >: @Ľř î|řŕ–|˙˙˙˙Ôŕ–|ĐĄ”| : a Pľj’| >: : z˛Ów (řČ÷ l[ ů î|řŕ–|˙˙˙˙Ôŕ–|ĐĄ”| : a Pľj’| : >: @ @ř 4ů ”ÖwX˛Ów˙˙˙˙P˛Ów—i[d- } đ˙˙˙ : D: Ő= : Üů Ő đ˙˙˙č÷ } |ů î|ř÷ ˙˙˙˙Śů î|Čj’|˙˙˙˙ľj’|­h’| : : m‘|d- I: 2Ówů ˙‡Ów<ř d- Đů î|Čj’|˙˙˙˙ľj’|­h’| : @m‘|d- >: I: ů ”ÖwÓw˙˙˙˙˙‡ÓwhłÓw Ő= : } đ˙˙˙Üů : słÓwđ˙ H\i Đř $ú Äů î|ŕř ˙˙˙˙Ôů î|p‘|˙˙˙˙m‘|ŢÂÁw : : ăÂÁwd- I: Řů ˘r I: $ů °ů ú î|p‘|˙˙˙˙m‘|ŢÂÁw : ăÂÁwd- >: 8&: ú éI[L&: ôů äú ”\Âwp Ŕw˙˙˙˙ăÂÁw§Ź[>: >: Hú cJ[ lú š[d- €D: d- °ú M[ >ű d- •ţU]>ű î¸ÓwH\i Ŕ Ŕú Čú KµÓw ű <˙˙˙p˙˙˙Pý˙˙ ű Řú pµÓwH\i ű (ű P,C d- ű ű T• űKD \ű T• ÓľB ° ľ ˛/D Pý đ!•ű 7D čű ˙˙˙˙ľ đ!• xű ď:D Řű ;D ˇňB

przed wywołaniem w C:\ mam tylko jeden plik aaa.txt, sss.txt nie istnieje...

kopiuj('c:\aaa.txt','c:\sss.txt');

pomocy :)

Pozdrawiam,
Infernal

Powinno być

BlockWrite(plik2,buf,rekord); {wpisujemy rekord}