correcciones al migrar a Lazarus 1.0.4