>>272
procedure　ViewCanvas(Canvas:　TCanvas);
var
　　i,　j:　Integer;
　　Color　:　TColor;
　　s:　string;
begin
　　for　j　:=　0　to　10　do
　　begin
　　　　s　:=　'';

　　　　for　i　:=　0　to　10　do
　　　　begin
　　　　　　Color　:=　Canvas.Pixels[i,　j];
　　　　　　if　Color=0　then
　　　　　　　　s　:=　s　+　'■'
　　　　　　else
　　　　　　　　s　:=　s　+　'□';
　　　　end;
　　　　Form1.Memo1.Lines.Add(s);
　　end;
end;

procedure　TForm1.Button1Click(Sender:　TObject);
var
　　Bitmap:　TBitmap;
begin
　　Bitmap　:=　TBitmap.Create;
　　try
　　　　Bitmap.Height:=11;
　　　　Bitmap.Width:=11;
　　　　Bitmap.Canvas.TextOut(0,0,Edit1.Text);
　　　　ViewCanvas(Bitmap.Canvas);
　　finally
　　　　Bitmap.Free;
　　end;
end;

Edit1, Button1, Memo1をForm1に貼り付けてください。
文字をキャンバスに表示して、pixelsプロパティで読んでます。
StringGridは設定が面倒なので、Memoにしました。