1:
2:
3:

for i := 0 to ComponentCount - 1 do
  if Components[i] is TLabel then
    TLabel(Components[i]).Font.Color := clRed;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TLabel = class(StdCtrls.TLabel)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TDeinForm = class(TForm)
    Label1: TLabel;
  ...
  end;

constructor TLabel.Create(AOwner: TComponent);
begin
  inherited;
  Font.Color := clRed;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

type
  TMeinLabel = class (TLabel)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

constructor TMeinLabel.Create(AOwner: TComponent);
begin
  inherited;
  Height := 33;
  Color := clRed;
// usw.
end;

procedure Register;
begin
  RegisterComponents('Eigene', [TMeinLabel]);
end;                    

1:
2:
3:
4:

for i := 0 to ComponentCount - 1 do begin
    c := Components [i];
    if c is TMeinLabel then begin
      (c as TMeinLabel).Caption := (c as TMeinLabel).Caption + '  ';                    

1:

Autosize := false;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

unit NonAutoSizeLabel;

interface

uses Classes, StdCtrls;

type
  TLabel = class(StdCtrls.TLabel)
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TLabel }

constructor TLabel.Create(AOwner: TComponent);
begin
  inherited;
  AutoSize := false;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, NonAutoSizeLabel;