Developing.ru

Доброго времени суток!

Необходимо сделать "супер"labelEdit, в котором текст и надпись располагаются по центру.

Вывод текста по центру сделала таким образом :

TLE=class(TLabeledEdit)
public
procedure CreateParams(var Params: TCreateParams); Override;
end;

procedure TLE.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_CENTER;
end;

Подскажите, пожалуйста, как сделать,чтобы надписть была поцентру edit ?