Включение табуляторов в Listbox

unit TabsLBox;
{включение табуляторов в listbox}
interface

uses WinTypes, Classes, Controls, StdCtrls;

type
  TMyListBox = class(TListBox)

  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure register;

implementation

procedure register;
begin
  RegisterComponents('Samples', [TMyListBox]);
end;

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

end.