1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

   bitmap:=tbitmap.create;

   start:=now;
   for i:=0 to 1000 do
   begin
      bildschirmfoto(bitmap);
      auswertung(Bitmap);
   end;

   button1.caption:=inttostr(millisecondsbetween(now,start));
   bitmap.free;                    

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:

procedure TForm1.bildschirmfoto(var result:tbitmap);
var rect1,rect2:trect;
 cv:tcanvas;
r : TRect;
bitmap2:tbitmap;
begin
   cv:=TCanvas.Create;
   cv.Handle:=GetWindowDC(GetDesktopWindow);
   r:=Rect(0,0,Screen.Width,Screen.Height);
   result.Width:=Screen.Width;
   result.Height:=Screen.Height;


   hoch:=302;
   breit:=296;

   rect1:=rect(0,0,breit,hoch);
   rect2:=rect(0,0,rect1.right-rect1.left,rect1.Bottom-rect1.Top);

   result.Canvas.CopyRect(rect2,cv,rect1);

   ReleaseDC(0,cv.Handle);
   cv.Free;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function tform1.auswertung(var bitmap:tbitmap):boolean;
var
oben:integer;
zeiger1: pcolor;
begin
   if bitmap.PixelFormat <> pf32bit then
      bitmap.PixelFormat := pf32bit;

   if (Bitmap.Width<=0) or (Bitmap.Height<=0) then
      exit;

   oben:=15;
   zeiger1:=bitmap.ScanLine[oben];

   ...

end;