1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

type
 pRGBArray2  =  ^TRGBArray2;
 TRGBArray2  =  array[0..32768-1, 0..2] of byte;

  TForm1 = class(TForm)
{...}
procedure TForm1.SpBlur(var Picture: TBitmap);
var
  Dest, row1, row2, row3: pRGBArray2;
  x, y,i : integer;
  BMP: TBitmap;
begin
 BMP := TBitmap.create;
 try
  BMP.Assign(Picture);
  for y := 1 to Picture.Height - 2 do
  begin
   Dest := Picture.ScanLine[y];
   row1 := BMP.ScanLine[y-1];
   row2 := BMP.ScanLine[y];
   row3 := BMP.ScanLine[y+1];
   for x := 1 to BMP.Width - 2 do
    // Nur wenn Pixel nicht schwarz ist
    if PDWord(@Dest^[x,0])^ > 0 then
     for i := 0 to 2 do
      Dest^[x,i] := (row1^[x-1, i] * 3 + row1^[x, i] * 3 + row1^[x+1, i] * 3 +
                     row2^[x-1, i] * 3 + row2^[x, i] * 8 + row2^[x+1, i] * 3 +
                     row3^[x-1, i] * 3 + row3^[x, i] * 3 + row3^[x+1, i] * 3) div 32
  end;
 finally
  BMP.Free;
 end
end;					

1:
2:
3:
4:
5:
6:
7:

var b:TBitmap;
begin
b:=TBitmap.Create;
b.Assign(Form1.Canvas); //<-- da klappts nich.
 SpBlur(b);
 Form1.canvas.draw(-1,-1,b);
b.Free;					

1:
2:
3:

b.Canvas.TextOut(x1,y1,'X');
SpBlur(b);
Form1.Canvas.Draw(-1,-1,b);					

1:
2:
3:
4:
5:
6:
7:

var b:TBitmap;  
begin  
b:=TBitmap.Create;  
b.Assign(Form1.Canvas); //<-- da klappts nich.  
 SpBlur(b);  
 Form1.canvas.draw(-1,-1,b);  
b.Free;