Caption vertikal zentrieren

[himitsu]

Delphi-Quellcode:

var ts: TSize;
  S: String;

S := 'derText';

ts := DrawTextEx(ButtonGroup1.Canvas, S);
ButtonGroup1.Canvas.TextOut(X - ts.cx div 2, Y - ts.cy div 2, S);

hierbei wären X und Y die Position, an welcher der Text zentriert gezeichnet werden soll