J'ai cherché dans la JVCL, j'ai pas trouvé de "RotatedLabel"...

Alors j'ai adapté un bout de code trouvé dans l'aide W32...

procedure TFenAppMutes.PaintBox1Paint(Sender: TObject);
var
plf : TLogFont;
hfnt, oldh : HFONT;
ALV : TVersionInfo;
AText : string;
begin
FillChar(plf, SizeOf(plf), 0);
StrPCopy(plf.lfFaceName, 'Arial');
plf.lfHeight := -MulDiv(8, GetDeviceCaps(PaintBox1.Canvas.Handle,
LOGPIXELSY), 72);
plf.lfWeight := FW_NORMAL;
plf.lfEscapement := 900;
hfnt := CreateFontIndirect(plf);
try
//PaintBox1.Canvas.Font.Handle := hfnt;
oldh := SelectObject(PaintBox1.Canvas.Handle, hfnt);
try
ALV := TVersionInfo.Create(Application.ExeName);
try
AText := 'Version ' + LongVersionToString(ALV.FileLongVersion);
PaintBox1.Canvas.TextOut(PaintBox1.Width -
PaintBox1.Canvas.TextHeight(AText), PaintBox1.Height
{PaintBox1.Canvas.TextWidth(AText)}, AText);
finally
ALV.Free;
end;
finally
SelectObject(PaintBox1.Canvas.Handle, oldh);
end;
finally
DeleteObject(hfnt);
end;
end;