Hola jocey, te falta hacer un close antes de ejecutar otra vez tu consulta.
Código Delphi
[-]
DataSetreportdep.Close;
DataSetreportdep.CommandText := 'select * from principal' + ' WHERE (((principal.departamento)=''' + Formparametros.Combodepa.Text + ''' ))';
DataSetreportdep.Open;
Saluditos