for d := 1 to Textlength do
begin
  DrawTextW(
    bmp.Canvas.Handle,
    PWideChar(copy(TextW,d,1)),
    1,
    tmpArea,
    DT_SINGLELINE or DT_NOCLIP);

  // widest is width of widest char, for spacing
  //
  // this is where I could check if next is a nonspacing/combining
  // to avoid adding space.
  if dtoPitch in Options.Option then
    tmpArea.Left := tmpArea.Left + widest;
end;