--- C:\DOKUME~1\Socke\LOKALE~1\Temp\ugradtabcontrol.pas-revBASE.svn000.tmp.pas	So Okt 12 17:33:18 2008
+++ C:\Programme\Lazarus\components\gradcontrols\src\ugradtabcontrol.pas	So Okt 12 17:32:15 2008
@@ -393,18 +393,19 @@
   TGradTabPageButton Create(AOwner: TComponent
  ------------------------------------------------------------------------------}
 constructor TGradTabPageButton.Create(AOwner: TComponent);
+var
+  tmpbmp: TCustomBitmap;
 begin
      inherited Create(AOwner);
 
      ControlStyle := ControlStyle+[csNoDesignSelectable,csDesignInteractive]-[csCaptureMouse];
      FCloseButton := TGradButton.Create(Self);
-     FCloseButton.Width:=12;
-     FCloseButton.Height:=12;
+     FCloseButton.SetBounds(1,1,12,12);
      TextAlignment:=taCenter;
-     FCloseButton.Left:=1;
-     FCloseButton.Top:=1;
      FCloseButton.Caption:='';
-     FCloseButton.Glyph.Assign(CreateBitmapFromLazarusResource('close_btn'));
+     tmpbmp := CreateBitmapFromLazarusResource('close_btn');
+     FCloseButton.Glyph.Assign(tmpbmp);
+     tmpbmp.Free;
      FCloseButton.ShowGlyph:=true;
 
      FCloseButton.BorderSides:=[];