Как копировать файлы?

if CopyFile(PChar('c:\text.bin'),PChar('c:\text2.bin'), FALSE) then Showmessage('скопирован') 
else Showmessage('не скопирован')

CopyFile(PChar('c:\ЗагруженнаяПапка\text.bin'),PChar('c:\ПустаяПапка\text2.bin'), FALSE);

if FileExtsts('image.png') then
   BEGIN
      i := 0; // i := 1;
      while (FileExists('image' + IntToStr(i) + '.png')) do inc(i);
      CopyFile(PChar('sourse_image.png'),PChar('image' + IntToStr(i) + '.png'), FALSE);
   END ELSE CopyFile(PChar('sourse_image.png'),PChar('image' + IntToStr(i) + '.png'), FALSE);

var
  myDate : TDateTime;
  myYear, myMonth, myDay : Word;
  myHour, myMin, mySec, myMilli : Word;
  FilName : String;
begin
  // Установка переменной myDate на "здесь и сейчас"
  myDate := StrToDateTime(Now);
  DecodeDateTime(myDate, myYear, myMonth, myDay,
                 myHour, myMin, mySec, myMilli);
  FileName := 'image_' + myYear + '-' + myMonth + '-' + myDay + '_' + myHour + '-' + myMin + '-' + mySec + '-' + myMilli + '.png';
  
  if FileExists(FileName) then ShoeMessage('Нелепое совпадение')
  else CopyFile(PChar('sourse_image.png'),PChar(FileName), FALSE);

uses SysUtils