Oluşturulan butonu yok etme

[ekank]

Merhaba, Uygulamada bir buton create ediyorum daha sonra bu butonda işim bitince yok olmasını. Fakat yok ederken adres hatası alıyorum bu sorunu nasıl çözebilirim?

  private
    { Private declarations }
    procedure xCreateClick(Sender: TObject);
  public
    { Public declarations }
  end;

procedure TMainForm.xCreateClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
  //işlermer


    TButton(Sender).Destroy; //  yok et ????
    TButton(TButton(Sender).Name).Free; //  yok et ???
  end;
end;

procedure TForm.ButtonHavuzIptalClick(Sender: TObject);
begin
  With TButton.Create(Panel1) do
  begin
    OnClick := xCreateClick;
    Cursor := crHandPoint;
    Tag := 1;
    Name := 'Close';
    Align := alRight;
    Height := 25;
    Width := 50;
    Caption := 'Ekle';
    parent := Panel1;
  end;
end;