But I cannot check if it is free or not
Assigned returns True if P is non-nil and retuns False of P is nil. The main use of Assigned is that Procedural variables, method variables and class-type variables also can be passed to Assigned.
Warning: Local variable "MyPicture" does not seem to be initialized
var MyPicture: tPicture=Nil;
Simplest solution ?:Code: [Select]var MyPicture: tPicture=Nil;
For some reason I have always thought that for some reason more complex variables get somehow initialised.
Probably because examples in wiki, etc. never bother to init them.