... if not FileExists(Path3) then begin if ForceDirectories(Path3) then CopyFile(Path1,Path2); if FileExists(Path2) then // спокойно в дбгрид данные добавили end; ...