#pas
procedure THIMainForm.Init;
var vsb:boolean;
begin

  vsb:= _prop_Visible;
  _prop_Visible:= false;

  if not isMain then
    FormList.AddObject('', Control.Handle);

  inherited;
  _prop_Position(false);
  if _prop_SavePosName='' then
  else if Pos('.ini\',_prop_SavePosName)=0 then
    _prop_Position := Registry
  else _prop_Position := IniFile;
  _prop_Visible:= vsb;
  SetAlphaBlendValue(_prop_AlphaBlendValue);
  if _prop_ClientSize then
    Control.SetClientSize(_prop_Width,_prop_Height);
  Control.OnPaint := _OnPaint;
  Control.Tag := Longint(Self);
end;