[[cHackAll]]

Yo personalmente haría algo como ésto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Bitmap: TBitmap;
 Index: Cardinal;
 ASCII: array[0..255] of Byte;
begin
 Index := High(ASCII);
 repeat Dec(Index);
  ASCII[Index] := Index + 1;
 until Index = 0;
 Bitmap := TBitmap.Create;
 Bitmap.Height := 64;
 Bitmap.Canvas.Font.Name := 'Comic Sans MS'; // es TrueType
 Bitmap.Canvas.Font.Size := 24;
 Bitmap.Width := Bitmap.Canvas.TextWidth(PChar(@ASCII)) + 16;
 Bitmap.Canvas.TextOut(8, 8, PChar(@ASCII));
 Bitmap.SaveToFile('c:\image.bmp');
 Bitmap.Destroy;
end;

Sin embargo me suena algo raro escuchar TrueType + ASCII