criar uma tabela em tempo de execução

if FileExists(´c:\contatos\contatos.db´)=false then
   begin
   TableContatos.Close;
   TableContatos.DatabaseName:=´c:\contatos´;
   TableContatos.TableName:=´Contatos´;
   TableContatos.TableType:=ttParadox;
   TableContatos.FieldDefs.Clear;
   TableContatos.FieldDefs.Add(´Cod´,ftAutoInc,0,false);
   TableContatos.FieldDefs.Add(´Contato´,ftString,50,false);
   TableContatos.FieldDefs.Add(´Telefone´,ftString,12,false);
   TableContatos.FieldDefs.Add(´Curso´,ftString,20,false);
   TableContatos.FieldDefs.Add(´Observacao´,ftMemo,100,false);
   TableContatos.IndexDefs.Clear;
   TableContatos.IndexDefs.Add(´iCod´,´Cod´,[ixPrimary,ixUnique]);
   TableContatos.IndexDefs.Add(´iContato´,´Contato´,[ixUnique]);
   TableContatos.CreateTable;
   TableContatos.Open;
   ShowMessage(´A tabela foi criada com êxito!´);
   end
else
   begin
   TableContatos.Close;
   TableContatos.DataBaseName:=´C:\contatos´;
   TableContatos.TableName:=´contatos.db´;
   TableContatos.Open;
end;