Mensaje    Asunto: Error en Procediemientos Almacenados.- Responder citando

saludos amigos, estoy re-100 aprendiendo procedimientos, les cuento, tengo el siguiente codigo:

StoredProc1->Close();
Table1->Open();
Table1->First();
StoredProc1->Active = true;
for(int i=0;i<Table1->RecordCount;i++){
StoredProc1->Params->Items[0]->Value = Table1->FieldByName- -> ("cod_carrera")->AsInteger;
Table1->Next();
}
StoredProc1->Prepare(); Mad // ACA SE CAE
StoredProc1->ExecProc();
StoredProc1->Active = true;
Table1->Close();

Al ejecutarlo me sale el siguiente error:

"StoredProc1: Cannot perform thi operation on an open dataset"
como lo puedo solucionar?. Grax a todos.-