Как проверить существует ли таблица

[Jrcfyf]

Подскажите, как можно проверить с помощью динамически создаваемых компонентов есть ли такая таблица в базе MS Sql server, и если её нет - создать её.

[Прик]

procedure TForm1.Button1Click(Sender: TObject);
var
  qr : TADOQuery;
begin
  qr := TADOQuery.Create(self);
  try
    qr.ConnectionString :=
       'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;'+
       'Initial Catalog='+<здесь имя БД>+';Data Source='+<здесь имя MS SQL сервера>;

    qr.SQL.Text :=
       'if object_id('+QuotedStr('dbo.Table01')+') is null '+
       'begin '+
       '  create table Table01 ('+
       '    id int NOT NULL PRIMARY KEY IDENTITY(1,1),'+
       '    first_fld int NULL,'+   
       '    second_fld varchar(100) NULL,'+
//... и другие поля (столбцы) таблицы
       '  ) '+
       'end';
    qr.ExecSQL;
  finally
    qr.Free
  end;
end;

[Jrcfyf]

большое спасибо)