[delphi] nie mogę skopiować kalalogu o nazwie "kopiowan

procedure TSDIAppForm.kopiuj(Katalog_zrodlowy,Katalog_docelowy:PChar);
var R: TSHFileOpStruct;
begin
ZeroMemory(@R, sizeof(R));
with R do
  begin
  Wnd:=GetDesktopWindow();  //oznaczenie uchwytu
  wFunc:=FO_COPY;           //rodzaj operacji
  pFrom:=Katalog_zrodlowy;       //katalog zrodlowy
  pTo:=Katalog_docelowy;    //katalog docelowy
  fFlags:=FOF_NOCONFIRMMKDIR;
  end;
Try
  SHFileOperation(R)
Except
  ShowMessage('Błąd podczas kopiowania');
End;
end;

procedure Kopiuj();
var
 R: TSHFileOpStruct;
const
// dup:pchar = 'c:\w\1.txt'#0#0'cos dalej w pamieci'; //tak bedzie dzialalo
  dup:pchar = 'c:\w\1.txt'#0'cos dalej w pamieci';  //a tak nie bedzie dzialalo
begin
ZeroMemory(@R, sizeof(R));
with R do
  begin
  Wnd:=GetDesktopWindow();  //oznaczenie uchwytu
  wFunc:=FO_COPY;           //rodzaj operacji
  pFrom:=dup;       //plik-katalog zrodlowy
  pTo:='c:\w\2.txt';    //plik-katalog docelowy
  fFlags:=FOF_NOCONFIRMMKDIR;
  end;
if (SHFileOperation(R)<>0) then
  ShowMessage('Błąd podczas kopiowania')
end;