Bilder vergleichen

[godman]

Hi Leute bei mir komm die Fehlermeldung "[Fehler] Unit1.pas(78): Undefinierter Bezeichner: 'Ceil'"

Code:

Delphi-Quellcode:

procedure vergleichenb;
var
    b1, b2: TBitmap;
  c1, c2: PByte;
  x, y, i,
  different: Integer; // Counter for different pixels
  Var  R, W, L: Integer;
  begin
  b1 := Form1.Image1.Picture.Bitmap;
  b2 := Form1.spielerk.Picture.Bitmap;
  If b1.PixelFormat <> b2.PixelFormat Then
      Form1.Label1.Caption := 'unterschiedliches Pixelformat'
    Else If (b1.Width <> b1.Width) and (b2.Height <> b2.Height) Then
      Form1.Label1.Caption := 'unterschiedliche Bildgröße'
    Else Begin
      R := 0;  W := 0;
      Case b1.PixelFormat of
        pf1bit: L := Ceil(b1.Width / 8);
        pf4bit: L := Ceil(b1.Width / 2);
        pf8bit: L := b1.Width;
        pf15bit: L := Ceil(b1.Width * 15 / 8);  {ich hoffe mal das für die 15 Bit stimmt}
        pf16bit: L := b1.Width * 2;
        pf24bit: L := b1.Width * 3;
        pf32bit: L := b1.Width * 4;
      rnd;
      For i := 0 to b1.Height - 1 do
        If CompareMem(b1.ScanLine[i], b2.ScanLine[i], L) Then Inc(R) Else Inc(W);
      Form1.Label1.Caption := IntToStr(R) + ' gleiche und ' + IntToStr(W) + ' unterschiedliche Zeilen';
    end;
end;

hab schon die ganze Zeit herumprobiert finde keine Lösung.

Danke für euere Anworten im Voraus

godman