[orodriguezca]

Creo que lo único que hay que hacer es invertir el orden del código:

Código Delphi [-]
materiaS->Caption=DBGrid1->DataSource->DataSet->FieldByName("prog_nom_programa")->AsAnsiString;
materiaS->ShowModal();