unit StringGrid1;

interface

uses
 SysUtils, Classes, Controls, Grids;

type
 TStringGrid1 = class(TStringGrid)
 private
   FOnColWidthsChange: TNotifyEvent;
 protected
   procedure ColWidthsChanged; override;
 public
 published
   property OnColWidthsChange: TNotifyEvent read FOnColWidthsChange
     write FOnColWidthsChange;

 end;

procedure Register;

implementation
procedure TStringGrid1.ColWidthsChanged;
begin
 inherited ColWidthsChanged;
end;
procedure Register;
begin
 RegisterComponents('MyComponent', [TStringGrid1]);
end;

end.

procedure TStringGrid1.ColWidthsChanged;
begin
 inherited ColWidthsChanged;
 if Assigned(FOnColWidthChange) then
   FOnColWidthChange(Self);
end;