double d = 1;
  for (int i = 0; i < 81; i++){
   d= d*9;
   Memo1->Lines->Add(d);
  }