SRL Archive - OSR Help

I'm using this function FastGetPixel(Pic,x,y)

To get a color from a bitmap at a certain point, but it returns a TColor. How can I get the color in an integer form for using with functions like 'FindColor/FindColorTolerance'?

i believe a TColor is just a integer.

Example

program New;
var
 Bitmap, Color: Integer;
 
begin
  Bitmap := BitmapFromString(7, 8, 'beNqzNnd2ssNEjg42GMjKztYS' +
       'A5nbWGMiM4oErbAJAgAydScu');
  try
    Color := FastGetPixel(Bitmap, 5, 5);
  finally
    FreeBitmap(Bitmap);
  end;
  WriteLn(Color);
end.

Example #2

program New;
var
 Color: TColor;
begin
  WriteLn(BoolToStr(VarType(Color) = varInteger));
end.

Hm, odd, it works now lol. I kept getitng a Type Mismatch error before.