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