Выравнивание в Label

[usmeshnik]

Уважаемые, Подскажите что не так, почему текст в контейнере Label невыравнивается, все остальное выполняет, запарился уже.
и еще один вопросик можно ли в компаненте прописать выполнение Click
и чтобы Caption Label (MyLab) моего компанента отображался например:
Кидаю на форму Panel1 и кликаю по своему компаненту (MyPanel) и на Panel1 отображается текст с Caption Label (MyLab), подскажите как это сделать если это реально, ПОЖАЛУСТА.

unit MyPanel;

interface

uses
SysUtils, Classes, Controls, ExtCtrls, StdCtrls;

type
TMyPanel = class(TPanel)

private
{ Private declarations }

FMyLab:Tlabel;
function GetCapMyLab:string;
procedure SetCapMyLab(const Value:string);

protected
{ Protected declarations }

public
{ Public declarations }

constructor Create(AOwner:TComponent); override;

published
{ Published declarations }

property CapMyLab:string read
GetCapMyLab write SetCapMyLab;

end;

procedure Register;

implementation

uses Graphics;

procedure Register;
begin
RegisterComponents('Standard', [TMyPanel]);
end;

constructor TMyPanel.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
Height:=60;
Width:=100;

FMyLab:=Tlabel.Create(Self);
FMyLab.Parent:=Self;

FMyLab.Alignment:=taCenter;

FMyLab.Left:=4;
FMyLab.Top:=30;
FMyLab.Width:=90;
FMyLab.Font.Size:=16;
FMyLab.Font.Style:=[fsBold];
FMyLab.Font.Color:=clLime;

end;

function TMyPanel.GetCapMyLab:string;
begin
Result:=FMyLab.Caption;
end;

procedure TMyPanel.SetCapMyLab(const Value:string);
begin
FMyLab.Caption:=Value;
end;

end.

[ArtGrek]

оформите код, и задаите вопрос(ы) нормально, что значит не выравниваеца? волнои идет?

[usmeshnik]

Не выполняется
FMyLab.Alignment:=taCenter;

[asmodey1]

FMyLab.Autosize:=False;

[usmeshnik]

Блин неделю парился и делф переустанавливал и функции крапал а ларчик просто открывался БОЛШОЙ СПАСИБОЧКИ!!!!
Вот бы и совторым вопросиком кто б чо присоветывал...