[droguerman]

Has intentado hacer algo como:

Código Delphi [-]
function CrearLabel(parent : TStatusBar);
var
  oLabel : TLabel;
begin
  oLabel := TLabel.create(parent);
  oLabel.Parent  := parent;
  oLabel.caption := 'hello';
  oLabel.top := 0;
  oLabel.left := 0;
  oLabel.visible := true;
end;