[angvelem]

Тут несколько в другом дело, в VCL для ваших целей действительно лучше использовать внутренние процедуры Canvas-а.
Хотя, можно изменить код таким образом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  aRect : TRect;
  St    : String;
begin
  St := 'Строка';

  Canvas.Font.Name := 'Comic Sans MS';
  Canvas.Font.Color := clRed;
  canvas.Brush.Color := clGreen;

  Canvas.Font.Size := 72;
  SetRect(aRect, 40, 40, 40 + Canvas.TextWidth(St), 40 + Canvas.TextHeight(St));
  Canvas.Rectangle(aRect);
  DrawText(Canvas.Handle, PChar(St), -1, aRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);

  Canvas.Font.Size := 14;
  SetRect(aRect, 40, 200, 40 + Canvas.TextWidth(St), 200 + Canvas.TextHeight(St));
  Canvas.Rectangle(aRect);
  DrawText(Canvas.Handle, PChar(St), -1, aRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;