[ecfisa]

Hola Isajar.

Aunque en realidad no hacemos los ejercicios por vos, veo en tus comentarios que has analizado el problema y tenés bastante código echo, así que:

void __fastcall TForm1::btnAniosClick(TObject *Sender)
{
int ed;
 if(TryStrToInt(Edit1->Text, ed)) {  // convertir a int, queda en ed
   ListBox1->Items->Add(IntToStr(ed*3)); // ed*3 en ListBox1
   Edit1->Clear();                   // Limpiar Edit
 }
 Edit1->SetFocus();                // Foco en Edit
}

void __fastcall TForm1::btnMesesClick(TObject *Sender)
{
  // La cantidad de edades las obtenes con: ListBox1->Items->Count-1
 for(int i=0; i<ListBox1->Items->Count; i++)
   ListBox2->Items->Add(IntToStr(StrToInt(ListBox1->Items->Strings[i])*12));
}

Sería bueno que la próxima vez incluyas el código que has escrito para poder hacerte sugerencias sobre él, de ese modo vas a sacar más provecho.

Un saludo.