#pas
 private
     tm:TITransparentManager;
     Bitmap: PBitmap;
     sControl: PControl;
     hRegion: HRGN;     
     procedure settransparent(Control: PControl);
     function getbitmap: PBitmap;     
     procedure SetPicture(Value:HBITMAP);   
//.......
procedure THITransparentManager.getbitmap;
begin
  Result := Bitmap;
end;