참고: http://blog.hjf.pe.kr/227

언젠가부터 두 번째 띄울때 오류메시지가 뜨면서 실행이 안된다.
재부팅해야 실행가능..T_T

원인:) 
2014년 8월 12일 발생 윈도우 보안업데이트(MS14-045)에 다음 내용이 포함
윈도우 기본 폰트경로 이외에 설치된 폰트파일 수정 제한 

해결:)
1) 윈도우즈 업데이트 제거
2) IDE Fix Pack 설치 [다운로드]

결론:)
① 2)는 설치 실패 ▶ Faild patches
② (2014/10/07) 해결안되어서 버그 우회 실행 배치파일(bat)을 만들어서 Delphi2010 실행시 사용 ☞ 미해결
③ (2014/10/14) 찾아보니 KB2993651 이 또 다시 문제를 재발시킨다고 하는듯하여 제거 ☞ OK

wusa /uninstall /kb:2993651   // MS14-045
wusa /uninstall /kb:2982791

결론: 업데이트를 2개다 제거하니 문제없이 잘된다. 주위분들처럼 이 참에 윈도우 자동 업데이트도 DISABLE했다.

(15/06/15)  윈도우 재설치로 문제 재발,
이번에는 윈도우즈 보안패치 제거만으로 해결이 안되었다.
아래 내용의 우회 실행 배치파일을 만들어서 델파이를 실행하니 되었다.
▶ 배치파일의 경로(path)때문에 안되는 경우 파일명 앞에 %Temp%를 붙여서 전체 경로로 지정하니 해결. 

@echo off
tskill bds

cd \
del %Temp%\EditorLineEnds_.ttr

cd \
REM set datum=%date%_%time:~3,2%-%time:~6,2%
set datum=%date:~2,4%-%date:~7,2%-%date:~10,2%_%time:0,2%;%time:~3,2%;%time:~6,2%
ren %Temp%\EditorLineEnds.ttr EditorLineEnds%datum%.ttr
start "" "c:\Program Files (x86)\Embarcadero\RAD Studio\7.0\bin\bds.exe" -pDelphi
pause

REM // ▲ 커맨드 설명
REM // 1(taskill): Delphi 프로세스 종료
REM // 2(del): 사용자TEMP디렉토리(%Temp%)내의 *.ttr 파일 삭제
REM // 3(set): rename할 파일명 꼬릿말 설정(시간값을 이용해 중복방지) 
REM // 4(start): Dephi 실행
REM // 5(pause): 일시정지(위 커맨드의 실행결과를 보기 위해 추가/삭제해도 무방)

var
	DataSet: TClientDataSet;
begin
	...
	sImagePath := 'C:\blob_img.jpg';
	// 확장자는 미리 알아야 함 (DB에 저장할때 파일명/확장자를 같이 저장)
	TBlobField(DataSet.FieldByName('PARAM_NM')).SaveToFile(sImagePath);
	TBlobField(DataSet.FieldByName('PARAM_NM')).BlobSize /// 파일 사이즈 (바이트 단위)

var
	fStream: TFileStream;
	SQLQuery: TSQLQuery;
begin
	...
	try
		fStream := TFileStream.Create(AFullPath, fmOpenRead);
	except
	on e : Exception do
		begin
		// '이미지 파일을 읽을 수 없습니다.' + #13#10 + e.Message
		end;
	end; // End of try

	// 방법1. 파일스트림을 업로드
	SQLQuery.ParamByName('FLD_IMG').LoadFromStream(fStream, ftBlob);
	// 방법2. 파일을 업로드
	SQLQuery.ParamByName('DRW_RST_IMG').LoadFromFile(sPath, ftBlob);

Application.MessageBox(PChar('next'), PChar('next'), MB_ICONERROR + MB_OK);

// 문자형 초기화
var
	ch: Char;
begin
	ch := #0;

// 상수값 정의
const
	_FORM01_DEFAULT_CAPTION = '창 제목';
	_MAX_FILESIZE  = 1000000;

// 배열의 인덱스용으로써 타입 정의
type
	TDbActionType = (datSelect, datInsert, datUpdate datDelete, datNone);
const
	_DBACTTYPE_FIRST = 0; // datSelect
	_DBACTTYPE_LAST = datDelete;

// 레코드 타입 정의 및 초기화
type
	TDbActionInfo =  record
		rsQuery: String;
		rsErrorMsg: String;
	end;

const
	DbActionInfoArray: array [_DBACTTYPE_FIRST.._DBACTTYPE_LAST] of TDbActionInfo =
	(
		rsQuery: 'SELECT A FROM tbl_nm WHERE '; rsErrorMsg: 'No Message'),
		rsQuery: 'INSERT INTO tbl_nm VALUES('; rsErrorMsg: 'No Message'),
		rsQuery: 'UPDATE tbl_nm SET'; rsErrorMsg: 'No Message'),
		rsQuery: 'DELETE FROM tbl_nm WHERE'; rsErrorMsg: 'No Message')
	);

// 포인터 정의 (val^ : 값 / @val: 포인터)
var
	val1, val2: TDbActionInfo;
	FPcxImageList: array[0..1] of ^TDbActionInfo;
begin
	FPcxImageList[0] := @val1;
	FPcxImageList[1] := @val2;

	...

	if FPcxImageList[0]^.rsErrorMsg <> 'No Message' then
	begin
		Application.MessageBox(FPcxImageList[0]^.rsErrorMsg, MB_OK + MB_ICONERROR);
	end