델파이 7.0 폼 투명하게 하는 기능이 있는것 같은데요.....

아니명 paint 처리 하면 속도가.....
procedure TForm1.FormCreate(Sender: TObject);
Var
   DRect : TRect;
begin
//  오브잭트 인스펙터에서 BorderStyle:= bsNone로 셋팅 바람
  Image1.Visible:= False;

  DRect:= Rect(0, 0, Width, Height);
  Image1.Picture.Bitmap.Width:= Width;
  Image1.Picture.Bitmap.Height:= Height;
  Image1.Picture.Bitmap.Canvas.CopyRect(DRect, Canvas, DRect);
end;

procedure TForm1.FormPaint(Sender: TObject);
Var
   LoopX, LoopY : Integer;
begin
  For LoopY:= 1 to Height do
  For LoopX:= 1 to Width  do
      If ((LoopX mod 3) = 1) and
         ((LoopX mod 3) = 1) then
         Canvas.Pixels[LoopX, LoopY]:= Image1.Picture.Bitmap.Canvas.Pixels[LoopX, LoopY];

end;