결과창 넓이 조정

오류메시지가 길게 나오면 문자가 잘리는 문제로 결과 창 넓이 조정
width : 420

frmResultUnit.dfm

@@ -3,7 +3,7 @@ object frmResult: TfrmResult
   Top = 225
   BorderStyle = bsDialog
   ClientHeight = 644
-  ClientWidth = 348
+  ClientWidth = 404
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
   Font.Color = clWindowText

frmResultUnit.pas

@@ -143,9 +143,10 @@ begin
 
   KeyStr := PRecResultDetail(fResultList.Items[Index])^.Key;
   ValueStr := PRecResultDetail(fResultList.Items[Index])^.Value;
+  ValueStr := '순천시민카드 앱에서 순천시민 인증이 필요합니다.';
 
   with TListbox(Control).Canvas do
-  begin        
+  begin
     if odSelected in State then
     begin
       Brush.Color := $00238AFF;