아래와 같이 만들었는데 안되네요. 만들려고 하는것은 Panel 위에 Panel과 DBGrid 를 올려서 하나의 컴포넌트로 만들고 싶습니다.

아래 소스중에서 어디가 잘못 된건지 알수가 없네요.(컴포넌트 처음 만들어 보는건데요. 아주 초보용으로 갈켜 주세요.)

<!--CodeS-->
unit TntmailDBGrid;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, DBGrids, DB;

type
  TTntmailDBGrid = class(TPanel)
  private
    { Private declarations }
    FDBGrid : TDBGrid;
    FFindPanel : TPanel;
    FDataSource : TDataSource;
    FDataSet : TDataSet;
    procedure SetFDataSet(Value:TDataSet);
  protected
    { Protected declarations }


  public
    { Public declarations }
    Constructor Create(AOwner:TComponent); override;
    Destructor Destroy; override;
  published
    { Published declarations }
    Property DataSet : TDataSet read FDataSet write SetFDataSet;
  end;


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Tntmail', [TTntmailDBGrid]);
end;

{ TTntmailDBGrid }

constructor TTntmailDBGrid.Create(AOwner: TComponent);
begin
  inherited;
  BevelInner := bvNone;
  BevelOuter := bvNone;
  FFindPanel := TPanel.Create(AOwner);
//  FFindPanel.Align := alTop;
  FFindPanel.BevelInner := bvLowered;
  FFindPanel.BevelOuter := bvRaised;
  FFindPanel.Parent := Self;
  FDataSource := TDataSource.Create(AOwner);
  
  FDataSource.DataSet := FDataSet;
  FDBGrid := TDBGrid.Create(AOwner);
  FDBGrid.Parent := Self;
//  FDBGrid.Align := alClient;
  FDBGrid.DataSource := FDataSource;

//  FDBGrid.DataSource := FDataSource;

end;

destructor TTntmailDBGrid.Destroy;
begin
  FFindPanel.Free;
  FDBGrid.Free;
  FDataSource.Free;
  inherited;
end;



procedure TTntmailDBGrid.SetFDataSet(Value: TDataSet);
begin
  FDataSet := Value;
  FDataSource.DataSet := Value;
end;

end.
<!--CodeE-->