Great Stephano! That did the job. On Di, 2008-08-26 at 10:42 +0300, Stephano wrote: > fCVShape.Create(Sender) -> fCVShape := TShape.Create(Sender) > fCVShape.Destroy -> fCVShape.Free Thanks DanieW
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
