いらっしゃいまし。

IBConsole と…というより IBX とCHAR() フィールドの件ですが、これは文字コードが何であっても発生します。SJIS_0208 でも UNICODE_FSS でも同様です。指定した文字数に満たない場合には空白文字でパディングしてくれちゃいます (固定長なので仕様的にはこれで正しいっちゃー正しいですけれど)。

Delphi でこの件を修正するには、アクティブにした TIBTable / TIBQuery の文字列フィールドにある FixedChar プロパティを False に設定します。

  for i:=0 to IBTable.Fields.Count-1 do
    case IBTable.Fields[i].DataType of
      ftString,
      ftWideString,
      ftFixedChar,
      ftFixedWideChar:
        if TStringField(IBTable.Fields[i]).FixedChar then
          TStringField(IBTable.Fields[i]).FixedChar := False;
    end;

　
こんな感じですね。ちなみに DBX4 の場合には TClientDataSet にある DisableStringTrim プロパティを False に設定すれば空白文字を除去した文字列を返してくれます。

話を元に戻しますが、私は VARCHAR() しか使わないのですっかりこの件を忘れておりました。ご指摘ありがとうございます m(_ _)m
この件は次のバージョンで修正しておきますね。

追記: TStringField.FixedChar は ANSI 版 Delphi の IBX では正しく動作しないようです。

IBX は空白パディングの文字数計算を間違っています。
(IBX.)IBCustomDataSet.pas の TIBCustomDataSet.InternalGetFieldData の中ですが、

function TIBCustomDataSet.InternalGetFieldData(Field: TField; Buffer: TValueBuffer): Boolean;
var
  Buff: TRecBuf;
  Data : PByte;
  CurrentRecord: PRecordData;
  cFieldData : TFieldData;
begin
  ...

        // fdDatalength represents the internal bytes length which is now Unicode
        if cFieldData.fdDataLength div 2 <= Field.Size then
        begin
          if (Field is TStringfield) and TStringField(Field).FixedChar then
            StrPCopy(PChar(Buffer), StringOfChar(' ', Field.Size));
          Move(Data^, PByte(Buffer)[0], cFieldData.fdDataLength);
          if (Field is TStringfield) and TStringField(Field).FixedChar then
            PChar(Buffer)[Field.Size] := #0 // <- バイトサイズで終端している
          else
            PChar(Buffer)[cFieldData.fdDataLength div 2] := #0;
          if (cFieldData.fdDataType = SQL_TEXT) and (not TStringField(Field).FixedChar) then
            PChar(Buffer)[Length(TrimRight(PChar(Buffer)))] := #0;
        end
        else
          IBError(ibxeFieldSizeMismatch, [Field.FieldName]);

  ...
end;

　
文字コードを考慮せずにヌル文字を入れていますね。ANSI 版 IBX (2007 以前) で SJIS_0208 を使っている場合には正しく空白パディングされますが、UNICODE 版 IBX (2009 以降) で SJIS_0208 を使うとこれまた正しく空白パディングされません。

ただ、これが簡単に直るかと言うと、それにはちょっと疑問が残ります。何故ならば Firebird の文字コードと Windows の文字コードが 1:1 で対応しないからです。例えば UNICODE_FSS という文字コードは Windows には存在しません。UTF-8 はありますが、UTF8 は 4 バイトの UTF-8 であるのに対し、UNICODE_FSS は 3 バイトの UTF-8 なので、簡単には変換できません (少なくとも Windows が持っている機能だけでは変換できません)。

(IBX.)IBSQL.pas を変更すれば IBX でも Firebird の UTF8 が正しく使えるようになるようです。
IBConsole の最新版 (Unicode 版 rel.53 / ANSI 版 rel.89) をリリースしました。

ROMGです。
DEKOさんの早速の対応に感謝します。

Char(n)定義の場合、文字列長がｎに足りない場合、空白で埋められるのは承知していましたがゴミ付きではTrimRight()を単純に
適用できないなぁ…と思っていました。
ちなみに、ここにアップした後でD2007を使ってサンプルデータを表示してみました。IBXのバージョンは11.11(IBXConst.pas)です。
IBDatabase->IBTransaction->IBQuery->DataSource->DBgridと単純に接続して表示してみたところ、
Char(n)の文字数不足部には空白が埋められていますが、ゴミはありませんでした（TrimRight()なしで）。

いずれにしても今回はDBの文字コードとIBConsoleが使用しているIBXがGrid上へ表示する上の問題であり、Qrueryを投げて帰ってくる
文字列は（当然のことですが）文字数不足分のみを空白で埋めていると考えてよいので、アプリ作成はこのことさえ考慮していれば問題ない
と考えます。

（蛇足）
小生は趣味として純粋に個人的なDBソフトを作成、楽しんでおり、他人様に使ってもらうなどはさらさら考えていません。
データ数十万件のDBを幾つか作成していますが、マスターテーブル（数十～百数十件程度）の作成、メンテなどはいつもDEKOさんの
IBConsoleのお世話になっており、今回の確認のお願いになりました。
（個人で使えるフリーのDBマネージャソフトを幾つか使ってみましたが、結局IBConsoleに落ち着き、今では他は全て捨てました）
Delphiをバージョンアップしたら（いつか出来たら）FireDACなるものへの移行もありかと、D2007にインスト可能と唱ったものをDLし
インストールにチャレンジしましたが、エラー（ソースの一部が文字化けしている）で今は投げ出したままです。