[nsl762]

Всем привет! Я новичек в дельфи вот вопрос:
Необходимо сделать программу которая находит определенный файл на диске и копирует в папку

Код:

program Project1;

uses
  SysUtils,
  Windows;
var
  F: TSearchRec;
  Path: string;
  Attr: Integer;
begin
  Path := 'c:\1.txt';

  Attr := faAnyFile;

  FindFirst(Path, Attr, F);

  if F.Name <> '' then
  begin
    CopyFile('1.txt' ,'c:\blablabla\1.txt',true);
  end;

Ошибки компиляции не выдает но при этом ничего не происходит, файл не копируется.Спасибо заранее