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

  If CompareMem (Bitmap1.Scanline[Bitmap1.Height - 1],
     Bitmap2.ScanLine [Bitmap2.Height - 1],
     Bitmap1.Width*Bitmap1.Height*SizeOf(TRGBTriple)) Then
    Result := true
  Else
    Result := false;					

1:

ImgLst.GetBitmap;					

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:

var i : Integer;
    comparepicture : TBitmap;
    TargetBmp : TBitmap;
begin
  result := 0;
  try
    SetPositions(links,oben,links,oben, T);  //hier werden positionen festgelegt, wo er der screenshot macht, brauch auf keine fall ne synchronisierung

    ComparePicture:=Tbitmap.create;
    TargetBmp := TBitmap.Create;

    Thread[T].ScreenshotSynched(Rect(Links,Oben,Links+100,Oben+100),      // hier macht er den screenshot. kann sein, dass hier schon der fehler liegt, prozedur steht unten
                                          32,43,64,90, TargetBmp);        //das Thread[t] ist der aktuell laufende thread

    for i := 1 to 20 do
    begin
      GUI.CardsImgLst.GetBitmap(i-1, ComparePicture);
      if CompareImages(TargetBmp, ComparePicture) then      //hier werden bilder verglichen, ist nicht snychonisiert, vlt liegt auch hier der fehler
      begin
        if (i>0) and (i<20) then
        begin
          Result := i;
          exit();
        end;
      end;
    end;
  finally
    FreeAndNil(TargetBmp);
    freeandnil(ComparePicture);
  end;
end;					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TProcess.Screenshot;
var DesktopHandle: HDC;
    ShotTargetBitmap : TBitmap;
begin
 if not Assigned(SynchP.TargetBmp) then
    Exit;
  Shottargetbitmap := TBitmap.Create;
  try
    ShotTargetbitmap.Width := SynchP.Bounds.Right - SynchP.Bounds.Left;
    ShotTargetbitmap.Height := SynchP.Bounds.Bottom - SynchP.Bounds.Top;
    SynchP.TargetBmp.Width := SynchP.Rechts - SynchP.Links;
    SynchP.TargetBmp.Height := SynchP.Unten - SynchP.Oben;
    DesktopHandle := GetDC(0);
    try
      BitBlt(ShotTargetBitmap.Canvas.Handle, 0 ,0, SynchP.bounds.Right-SynchP.bounds.left,
        SynchP.bounds.Bottom - SynchP.bounds.top, DesktopHandle, SynchP.bounds.Left,
        SynchP.bounds.Top,SRCCOPY);
      BitBlt(SynchP.TargetBmp.Canvas.Handle, 0, 0, SynchP.Rechts, SynchP.Unten,
        ShotTargetBitmap.Canvas.Handle, SynchP.Links, SynchP.Oben, SRCCOPY);
    finally
      ReleaseDC(0, DesktopHandle);
    end;
  finally
    FreeAndNil(ShotTargetBitmap);
  end;
end;

procedure TProcess.ScreenshotSynched(Bounds2:TRect; Links2, Rechts2, Oben2,
                                         Unten2 : Integer; var Bmp : TBitmap);
begin
  try
    with SynchP do  //habe ein record, mit welchem ich die variablen an die zu synchronisierende prozedur weitergebe, ist unter private eingetragen
    begin
      TargetBmp := TBitmap.Create;
      Bounds := Bounds2;
      Links := Links2;
      Rechts := Rechts2;
      Oben := Oben2;
      Unten := Unten2;
    end;
    SYNCHRONIZE(ScreenShot);
    Bmp.Assign(SynchP.TargetBmp);
  finally
    SynchP.TargetBmp.free;
  end;
end;					

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

  If CompareMem (Bitmap1.Scanline[Bitmap1.Height - 1],
     Bitmap2.ScanLine [Bitmap2.Height - 1],
     Bitmap1.Width*Bitmap1.Height*SizeOf(TRGBTriple)) Then
    Result := true
  Else
    Result := false;					

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

begin
  try
    with SynchP do  //habe ein record, mit welchem ich die variablen an die zu synchronisierende prozedur weitergebe, ist unter private eingetragen
    begin
      TargetBmp := TBitmap.Create;
      Bounds := Bounds2;					

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

procedure TProcess.GetMiscImgLstSynched(pos : integer; var bmp : TBitmap);
begin
  MiscL.Nr := Pos;
  Synchronize(GetMiscImgLst);
  bmp.Assign(MiscL.Bmp);
end;

procedure TProcess.GetMiscImgLst;
begin
  GUI.MiscImgLst.GetBitmap(MiscL.Nr, MiscL.Bmp);
end;