Как нарисовать текст Unicode?

Да, вы прямо в точку. Тем не менее, я бы порекомендовал вам перейти на Delphi 2009 или более позднюю версию, в которой VCL имеет полную поддержку Unicode и все намного проще.

Во всяком случае, вы можете сделать

procedure TMyControl.Paint;
var
  S: WideString;
  r: TRect;
begin
  inherited;
  r := ClientRect;
  S := 'This is the integral sign: '#$222b;
  DrawTextW(Canvas.Handle, PWideChar(S), length(S), r, DT_SINGLELINE or
    DT_CENTER or DT_VCENTER or DT_END_ELLIPSIS);
end;

в старых версиях Delphi (я думаю. Код компилируется в Delphi 7 на моей виртуальной машине с Windows 95, но я не вижу текста. Думаю, это потому, что Windows 95 слишком старая.)

Обновить

Если вы хотите поддерживать очень старые операционные системы, такие как Windows 95 и Windows 98, вам нужно использовать TextOutW вместо DrawTextW, так как последний не реализован (источник). TextOut менее мощный, чем DrawText, поэтому вам нужно вычислить положение вручную, если вы хотите, например, центрировать текст внутри прямоугольника.

procedure TMyControl.Paint;
var
  S: WideString;
begin
  inherited;
  S := 'This is the integral sign: '#$222b;
  TextOutW(Canvas.Handle, 0, 0, PWideChar(S), length(S));
end;