Не могу написать функцию

[Dima_mazhor]

ACCESS через ADO В общем искал по поиску не нашел точного описание как можно организовать это. Чтобы картинка не хранилась в БД нужно чтобы функция копировала файл в папку и писала путь для IMAGE
DBImage не подойдет

[slips]

функция копирования файла copyFile- пробывал?
ну и или в крайнем случае

procedure TForm1.Save1Click(Sender: TObject);

var
  NewFileName: string;
  Msg: string;
  NewFile: TFileStream;
  OldFile: TFileStream;
begin
  NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
  Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
  if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
  begin
    OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;
    finally
      FreeAndNil(OldFile);
    end;
  end;
end;

из справки Delphi