проблемы со скринсейвером

[joker]

проблема такая:
оригинальная прога была просто шуткой и рисовала окружности разного размера и цвета с разной скоростью в контексте устройства окна рабочего стола, проще говоря вот кусок модуля, где у меня её процедура


Код

type

PScreenJoke=^TScreenJoke;

TScreenJoke=record
AllColors,oneSize:boolean;
ParticularColor:TColor;
LimitOfSize,Wait:cardinal;
end;

const
colors:Array [0..21] of TColor=
(clBlack,clMaroon,clGreen,clOlive,clNavy,clPurple,clTeal,clGray,
clSilver,clRed,clLime,clYellow,clBlue,clFuchsia,clAqua,clLTGray,
clDKGray,clWhite,clMoneyGreen,clSkyBlue,clCream,clMedGray);

procedure SetScreenJoke(m:PscreenJoke; LimitOfSize,Wait:cardinal; OneSize:boolean=false; AllColors:boolean=true; ParticularColor:TColor=clnone);
          begin
           m^.AllColors:=AllColors;
           m^.LimitOfSize:=LimitOfSize;
           m^.Wait:=Wait;
           m^.oneSize:=OneSize;
           if not AllColors then m^.ParticularColor:=ParticularColor;
          end;

procedure Jeans(struct:pointer);
          Var hdcDesk: THandle; c:TBrush; Ifcol:boolean;
          X, Y: Integer; SX,SY,size,sizelimit,time:cardinal; col:TColor;
          begin
          randomize;
          with PScreenJoke(struct)^ do
          begin
           Ifcol:=AllColors;
           sizelimit:=LimitOfSize+1;
           if OneSize then size:=sizelimit;
           if not ifcol then col:=ParticularColor;
           time:=Wait;
          end;
          hdcDesk := GetWindowDC (GetDesktopWindow);
          c := TBrush.Create;
          SX:=GetSystemMetrics(SM_CXSCREEN);
          SY:=GetSystemMetrics(SM_CYSCREEN);
          if not ifcol then
          begin
          c.Color:=col;
          SelectObject (hdcDesk, C.Handle);
          end;
          repeat
          X := Random (SX);
          Y := Random (SY);
          if size<>sizelimit then size:=Random(sizelimit);
          if ifcol then
          begin
          c.Color:=colors[random(22)];
          SelectObject (hdcDesk, C.Handle);
          end;
          Ellipse (hdcDesk, X - size, Y - size,
          X + size, Y + size);
          sleep(time);
          until false;
          ReleaseDC (GetDesktopWindow,hdcDesk);
          c.Free;
          end;

Хотел сделать это культурненько, как скринсайвер с окном настроек в свойствах экрана и чтобы по нажатию клавиши убирались последствия, а не путём диспетчера задач, да вот только все кружочки появляються тогда не прямо на рабочем столе а на фоне экрана, а если и появляются то вылезает ошибка
canvas does not allow drawing - пробовал заносить в bitmap текущую копию экрана с помощью BitBlt а потом canvas.draw(bitmap), подскажите чё-надо сделать

[_Dmitry]

А если поверх рабочего стола поместить форму без рамки и рисовать на ней