Componente TShape con Label?

[keyboy]

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