problema con copyfile

[cesarjbf]

Hola, ya lei varios hilos nuevos y viejos y llegue a la conclusion de que para copear un archivo de un directorio a otro se puede utilizar esto

procedure TForm1.Button1Click(Sender: TObject);
Var
f:TFileStream;
begin
f:=TFileStream.Create('c:\musica\001\depechemode.jpg',fmOpenRead or fmShareExclusive);
copyfile(pchar('c:\musica\001\depechemode.jpg'),pchar('c:\musica\006\001.jpg'),true);
f.free;
end;

el programa corre bien pero no copea nada,(delphi 5), GRACIAS