try
    with q_cust do
    begin
      close;
      sql.clear;
      sql.text:= ' insert into  customer   '+
                 ' (C_NO,C_CHOICE,C_NAME,C_TEL,C_FAX,C_ADDRESS,C_REAMRK,C_BONJEOM) '+
                 '  values(:PC_NO,:PC_CHOICE,:PC_NAME,:PC_TEL,:PC_FAX,:PC_ADDRESS,:PC_REAMRK,:PC_BONJEOM) ';
      parambyname('PC_NO').asstring  := '3';
      parambyname('PC_CHOICE').AsString := ls_Tmp;
      parambyname('PC_NAME').asstring := trim(ED_Cname.text);
      parambyname('PC_TEL').asstring := trim(ed_tel.text);
      parambyname('PC_FAX').asstring    := trim(ed_fax.text);
      parambyname('PC_ADDRESS').asstring    := trim(ED_Add.text);
      parambyname('PC_REAMRK').asstring := '비고';
      parambyname('PC_BONJEOM').asstring := crbon;
      execsql;
    end;
   except
      showmessage('확인후 다시 입력하여 주세요');
      abort;
   end;

필드는 모두 char 로 했습니다...



에러 메시지는 General Sql error arithmtic exception numeric overflow,or string truncation