Ошибка при Копирование файлов

[Volkogriz]

Доброе время суток!
Деловтом что при копирывание файлов создаётся один и тот-же файл сразными именами Вот код;

Procedure FileCopy(Const SourceFileName, TargetFileName: String);
Var
S,T   : TFileStream;
Begin
S := TFileStream.Create(sourcefilename, fmOpenRead );
try
T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size ) ;
FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
T.Free;
end;
finally
S.Free;
end;
end;

function GetFiles(Path:String; Full: Boolean = true):TStrings;
   Var Rec:TSearchRec; TMP:TStrings;ls: String;i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then
       begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end
       else
       Result.Add(Path+Rec.Name);
       Result.Add(Path);
     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
         //Result.Add(Path);
       end;
    end;
if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;
 SysUtils.FindClose(Rec);
end;

procedure PatchString;
var
NamePatch,IFPatch:TStringList;
Patch:String;
g,r,i:integer;
begin
Patch:= '\';
IFPatch:=TStringList.Create;
NamePatch:=TStringList.Create;
NamePatch.LoadFromFile(Pchar(extractfilepath(Application.ExeName))+ 'Name.dat');
IFPatch.Assign(GetFiles(Pchar(extractfilepath(Application.ExeName))));
for i:=1 to IFPatch.count-1 do for g:=1 to NamePatch.count-1 do
FileCopy(IFPatch.Strings[i],Form1.Edit2.Text + Patch + NamePatch.Strings[g]);
r:=15;
if i>r then
Form1.ProgressBar1.Min:=0;
Form1.ProgressBar1.Position:=r;
Form1.ProgressBar1.Max:=i;
begin
IFPatch.Clear;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PatchString;
end;

В файле Name.dat содержатся имена копируемых файлов!
Как это исправеть не как немогу догодаться,
Хотя понял причину!!!
Зарание благодарен.
С уважениенм,
Volkogriz!

[Stilet]

И в чем же причина?

[Volkogriz]

Причина втом что программа берёт первый файл и копирует его несколько раз с именами находяшимися в файле Name.dat.
И удолитворившесь тем что все файлы наместе блогополучно заканчивает процесс копирования!
Как зделать так чтобы программа взела первый файл и скопировала его с именем первой строки в файле Name.dat, потом другой скапировала со вторым именем и тд и тп...

[Stilet]

Ага... Ну тогда:
Во-первых: NamePatch.Strings[g] - ничего не смущает? по-моему тут уместно не g а i
Во-вторых: Мне кажется что сложновато код написан... ИМХО его можно упростить...

[Volkogriz]

Спс!!
Я разобрался с вашей помощью!
Код какой смог написать