Saludos
He editado tu mensaje para agregarle las etiquetas [ delphi], editalo y veras como se usan. Es imprescindible su uso!
Ahora vamos a tu codigo.
*
fecha:=strtodate(table1.fieldbyname('CampoFecha').Asstring) +1;
Aqui estas usando funciones innecesarias. Podrias hacer:
fecha:=table1.fieldbyname('CampoFecha').AsDate+1;//no recuerdo si es AsDate o AsDateTime
* El MaskEdit y el fecha deben tener el mismo formato, es decir, dd/mm/yy, si esto no se cumple, no obtendras los resultados esperados.
*El por qeu no funciona en una maquina u otra, quizas sea por lo citado anteriormente
Suerte
