удаление динамически создаваемого компонента delphi

[JK0]

На форме по нажатию кнопки динамически создаётся stringgrid (имя - а) заданной размерности. При повторном нажатии на кнопку создаётся новый stringgrid, но старый при этом не удаляется, т.е. на форме новый рисуется поверх старого. При попытке проверки наличия компонента, и в случае его существования, вызова деструктора - при выполнении приложения выбивает ошибку.
procedure TForm1.Button2Click(Sender: TObject);
var
a:TStringgrid;
....
begin
.....
if a<>nil then a.Destroy;
a:=Tstringgrid.Create(Form1);
a.Parent:=Form1;
a.ColCount:=na+1;
a.RowCount:=nk+1;
....
Причём, условие if a<>nil then... срабатывает уже при первом запуске программы, т.е. когда компонент ещё не создан!
Подскажите, пожалуйста, в чём дело?

[Hacker19_90]

Попробуй так
if a.Handle <> nil then a.Destroy;

[JK0]

Работает с исходным кодом, если а описана как глобальная переменная. Правда, при компиляции всё время предлагает её из описания удалить
(2 дня мучений!)

[evg_m]

type
  Tform1 =class(Tform)
  ....
  private
    a: TstringGrid;
 //объявление должно быть здесь 
  end;

procedure TForm1.Button2Click(Sender: TObject);
var
a:TStringgrid;// а это надо убрать
....
begin

P.S.И назвать конечно же не a, а что-нибудь более читабельное, например dinamic_stringgrid