anchor.diff:    OTL, ITL, OBR, IBR: TColor;
   begin
     case BorderStyle of
  -     bsLowered:
  -     begin
  -        OTL := clBtnShadow;
  -        ITL := cl3DDkShadow;
  -        IBR := cl3DLight;
  -        OBR := clBtnHighlight;
  -     end;
  -     bsRaised:
  -     begin
  -        OBR := clBtnShadow;
  -        IBR := cl3DDkShadow;
  -        OTL := clBtnHighlight;
  -        ITL := cl3DLight;
  -     end;
  -     else
  -        exit;
  -  end;
  +  	bsLowered:
  +    begin
  +    	OTL := clBtnShadow;
  +      ITL := cl3DDkShadow;
  +      IBR := cl3DLight;
  +      OBR := clBtnHighlight;
  +    end;
  +
  +    bsRaised:
  +    begin
  +    	OBR := clBtnShadow;
  +      IBR := cl3DDkShadow;
  +      OTL := clBtnHighlight;
  +      ITL := cl3DLight;
  +  	end;
  +
  +    else exit;
  +  end;
  +
     with Canvas do
     begin
  -     dec(Rect.Bottom);
  -     dec(Rect.Right);
  -     Pen.Color := OTL;
  -     MoveTo(Rect.Left, Rect.Bottom);
  -     LineTo(Rect.Left, Rect.Top);
  -     LineTo(Rect.Right, Rect.Top);
  -
  -     Pen.Color := OBR;
  -     LineTo(Rect.Right, Rect.Bottom);
  -     LineTo(Rect.Left, Rect.Bottom);
  -     InflateRect(Rect,-1,-1);
  -
  -     Pen.Color := ITL;
  -     MoveTo(Rect.Left, Rect.Bottom);
  -     LineTo(Rect.Left, Rect.Top);
  -     LineTo(Rect.Right, Rect.Top);
  -
  -     Pen.Color := IBR;
  -     LineTo(Rect.Right, Rect.Bottom);
  -     LineTo(Rect.Left, Rect.Bottom);
  -     inc(Rect.Top);
  -     inc(Rect.Left);
  +  	dec(Rect.Bottom);
  +    dec(Rect.Right);
  +    Pen.Color := OTL;
  +    MoveTo(Rect.Left, Rect.Bottom);
  +    LineTo(Rect.Left, Rect.Top);
  +    LineTo(Rect.Right, Rect.Top);
  +
  +    Pen.Color := OBR;
  +    LineTo(Rect.Right, Rect.Bottom);
  +    LineTo(Rect.Left, Rect.Bottom);
  +    InflateRect(Rect,-1,-1);
  +
  +    Pen.Color := ITL;
  +    MoveTo(Rect.Left, Rect.Bottom);
  +    LineTo(Rect.Left, Rect.Top);
  +    LineTo(Rect.Right, Rect.Top);
  +
  +    Pen.Color := IBR;
  +    LineTo(Rect.Right, Rect.Bottom);
  +    LineTo(Rect.Left, Rect.Bottom);
  +    inc(Rect.Top);
  +    inc(Rect.Left);
     end;
   end;
   
  
positive.code:   Result := TFont.Create;
    with Result do
    begin
       Name := ThisFont.Name;
       Style := ThisFont.Style;
       Size := ThisFont.Size;
    end;
  end;
  
  
negative.code: function StrYesNo(IsEmpty: Boolean): String;
  begin
    if IsEmpty then
    	Result := 'Yes'
    else
    	Result := 'No';
  end;
  
  function StrInByteArray(ByteArray: array of Byte; SubString: String; Start: Integer): Boolean;
  var
  	Idx, Last: Integer;
  begin
  