Delphi - Criar Tabelas Firebird via Delphi

Procedure TForm1.BitBtn1Click(Sender: TObject);
var L:TStringList;
begin

        {A classe TStringList é utilizada para armazenar e manipular
        uma lista de strings. Através do método Add da classe é
        possível inserir uma nova string a lista}

        //criando Stringlist na memória

        L := TStringList.Create;
        //pega o nome da tabela
        SQLConnection1.GetTableNames(L);
        //pega a posição do tbteste(começa no 0)
        if L.IndexOf('tbteste') >= 0 then
        begin
                Showmessage('Esta tabela já existe no BD!');
                Abort
        end
        else
        begin

                SQLQuery1.Close;
                SQLQuery1.SQL.Clear;
                SQLQuery1.SQL.Add('create table tbteste(');
                SQLQuery1.Sql.Add('cod_teste integer not null primary key, ');
                SQLQuery1.Sql.Add('nome_teste varchar(40))');
                SQLQuery1.ExecSQL;
                L.Free;
                ShowMessage('Tabela Criada com sucesso!');
        end;

end;

//Obs: é necessário ter um sqlconnection e uma sqlquery