Thank you very much.
Your code works on Windows but only to show message (like that your have insert).
But if you want, for example, to show or hide control like this
TThread.ForceQueue(TThread.CurrentThread,
procedure
begin
if ord(self.WindowState) = 2 then
labe1.visible:= false
else
labe1.visible:= true;
end);
code works only utlil maximization oparation is performed.
When form is reset to original dimensions, code don't works.
Regards.