procedure TForm1.DownloadFileOver(fPath,fName:string);
var
    FileStream :TFileStream;
begin

    try
        FileStream := TFileStream.Create(fPath+fName, fmOpenRead);
    except
        on E:Exception do begin
            //
        end;
    end;

    try
        FileStream.Position := FileStream.Size;
    except
        //
    end;

    try
        IdFTP1.Get(fName,FileStream);
    except On E:Exception do
        showmessage(e.Message);
    end;
end;

ftp서버에서 파일 이름이 같은 경우에 이어서 받기 구현한건데

엑세스가 거부되었습니다. 라고 에러 메시지가 나오네요,,

fmOpenRead 대신에 fmCreate 를 사용하면 다운은 되는데 기존의

파일 크기에 추가되어 다운받아져 있네요,,,기존파일의 크기에서

부터 받아야 되는뎅,,,