Сохранение файлов из DBGrid

[Eugene_Stoun]

Всем, Доброго времени суток!
Прошу помочь с таким вопросом: "Имеется DBGrid, в нем есть различные поля, среди них , поле "Ссылка", которое содержит ссылку на файл. Так вот как сделать сохранение файлов из DBGrid? Чтобы нажать кнопку сохранить, затем создаем папку и сохраняем туда все файлы, которые в данный момент есть в DBGrid"... Прошу помочь или посоветовать, я делаю вот как:

procedure TForm1.Button3Click(Sender: TObject);
var   i:integer;
      dir:string;
begin
AdvSelectDirectory('Выберите папку для сохранения', '', dir, False, False, True);
begin
for i:=0 to DBGRid1.Columns.Count-1 do
      if FileExists (PChar(DBGridEh1.Columns[9])) then
      begin
      CopyFile(PChar(DBGrid1.Columns[9]) , true);
      ShellExecute(Handle, 'open', PChar(dir), nil, nil, SW_SHOWNORMAL);
      end;
      end;
end;

Столбец номер 9 - это ссылка на файл.

[Аватар]

Этот путь к файлу вообще-то не в гриде, а в поле DataSet-а, на который грид ссылается через DataSource. И остается в цикле пройтись по датасету и проанализировав данные в нужном поле выполнить то, что вы задумали

[Eugene_Stoun]

А как пройтись по DataSet ?

[Аватар]

DataSet.First;
while not DataSet.Eof do begin
  if DataSet.FieldByName('Ссылка').AsString<>'' then begin
// здесь проверяем существование файла и пытаемся скопировать. Если каталог еще не создан - создаем его, хотя это лучше до цикла
  end;
  DataSet.Next;
end;

Как поле называется не знаю, условно предположил что 'Ссылка'

[Eugene_Stoun]

Компилирует, отображаются записи, нажимаю кнопку сохранить, создаю папку, как только жму окей ошибка!
Значит, что то не так я делаю :

procedure TForm1.Button3Click(Sender: TObject);
var   i:integer;
      dir:string;
      DataSet:TDataSet;
begin
AdvSelectDirectory('Выберите папку для сохранения', '', dir, False, False, True);
begin
DataSet.First;
while not DataSet.Eof do begin
  if DataSet.FieldByName('Ссылка').AsString<>'' then begin
  if FileExists (PChar(DataSet.FieldByName('Ссылка').AsString)) then
      begin
      CopyFile(PChar(DataSet.FieldByName('Ссылка').AsString),PChar(NewFileName(dir + '\'+ExtractFileName(DataSet.FieldByName('Ссылка').AsString))), true);
      ShellExecute(Handle, 'open', PChar(dir), nil, nil, SW_SHOWNORMAL);
  // здесь проверяем существование файла и пытаемся скопировать. Если каталог еще не создан - создаем его, хотя это лучше до цикла
  end;
  DataSet.Next;
end;

      end;
      end;
end;

[Eugene_Stoun]

Спасибо, огромное заработало!