LCLMessageGlue.LCLSendShowWindowMsg bug?

[AlexTP]

Code: Pascal  [Select][+][-]

1. function LCLSendShowWindowMsg(const Target: TControl; Show: Boolean;
2.   Status: LPARAM = 0): PtrInt;
3. var
4.    Mess : TLMShowWindow;
5. begin
6.   FillChar(Mess,SizeOf(Mess),0);
7.   Mess.Msg := LM_SHOWWINDOW;
8.   Mess.Show := True;
9.  
10.   Result := DeliverMessage(Target, Mess);
11. end;

1) Maybe it's needed "Mess.Show := Show" ?

2) Maybe it's missed "Mess.Status := Status" ?