Un ejemplo, centrando el texo en el shape:
Código Delphi
[-]
procedure TMiShape.Paint;
begin
inherited;
Canvas.TextOut(
(Width - Canvas.TextWidth(FText)) div 2,
(Height - Canvas.TextHeight(FText)) div 2, FText);
end;
Por otra parte, dado que mencionas que quieres hacer un diagrama de flujo, te puede interesar el componente
TSimpleGraph, que es gratuito y del que además, puedes estudiar su código. Hay varias referencias al componente en los foros.
Bye