TSrinGrid has no parent

Hi,
I am new to Delphi and I am trying to alter an existing activex.
The Component basically creates a form at runtime and allows the user
to design the form by adding controls (editbox, checkbox label….)
I wish to allow the user to add a TStrinGrid, however the Grid will
display on the form  and allow me to resize it but after it loses
focus clicking on it produces the

Control has no parent window error

I can't seem to trap the piece of code or event that causes the error

The code works fine for other controls but seems to come unstuck with
the Grid

Code Snippet below:

function TSForm.CreateControl(ControlType: TControlType; Top, Left,
Width, Height: integer):TControl;
var
  NewControl: TControl;

begin
  if not DesignMode then
    raise Exception.Create('S form must be in design mode to use
CreateControl function.');

  NewControl := SCl*****[ord(ControlType)].Create(Self);  
  NewControl.Parent := self;

end;


Thanks in advance for any help , similar experiences or debugging
advice appreciated