Копирование файлов из одной папки с созданием для каждого скопированного файла каталога с ГУИД номером в задан

unit Unit134;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ShellAPI;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Label1: TLabel;
    Button2: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure Guid;
  end;
 
var
  Form1: TForm1;
  dir_in,dir_out:String;
 
implementation
 
uses ComObj;
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  dir_in := 'D:\PROJECTS\Test\002\in\';
  dir_out := 'D:\PROJECTS\Test\002\out\'
end;
 
procedure TForm1.Guid;//создаю процедуру которая создает папку с номер-Гуид
var
  guid:TGUID;
  dir_file_out, guid_str:string;
begin
   CreateGuid(Guid);
  guid_str := GuidToString(Guid);
  dir_file_out := dir_out + guid_str;
  dir_file_out := StringReplace(dir_file_out, '{', '',[rfReplaceAll, rfIgnoreCase]);
  dir_file_out := StringReplace(dir_file_out, '}', '',[rfReplaceAll, rfIgnoreCase]);
  dir_file_out := StringReplace(dir_file_out, '-', '',[rfReplaceAll, rfIgnoreCase]);
  CreateDir(dir_file_out);
  ShowMessage('Создание нового каталога завершено' + dir_file_out);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  sr:TsearchRec;
  findRes:Integer;
begin
  ListBox1.Clear;
  FindRes := FindFirst(dir_in + '*.*',faAnyFile,sr);
  while FindRes = 0 do
  begin
    if ((sr.attr and faDirectory) = faDirectory) and ((sr.Name = '.') or (sr.Name = '..')) then
    begin
      findRes := FindNext(sr);
      Continue;
    end;
    ListBox1.Items.Add(sr.Name);
    FindRes := FindNext(sr);
  end;
  FindClose(sr);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
begin
  i := ListBox1.Items.Count;
  Edit1.Text := intTostr(i);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var

for i := 0 to ListBox1.Items.Count - 1
do begin
    Dir := ExtractFilePath(ListBox1.Items.Strings[i]) + GUID + '\';
    CreateDir(Dir);
    Res := False;
    CopyFile(ListBox1.Items.Strings[i], Dir + ExtractFileName(ListBox1.Items.Strings[i]), Res);
    end;