Sorry if in wrong forum.
Code:
Function GetBankColor: integer;
Var X,Y,DtmBankLogo,BankBitmap,DTMBank2: Integer;
Angle: Extended;
Begin
  DtmBankLogo:= DTMFromString('78DA632C656260C864400157769A321801694' +
       '620FE0F048C85403559A86A562D5F015703020076FA09DD');
  DTMBank2 := DTMFromString('78DA639CC0C4C060CE8002AE9CB260E002D28' +
       'C40FC1F08182702D558E35603028C9331D524C432A2AA99045463' +
       '865F0D00925B0C86');
  BankBitmap := BitmapFromString(15, 5, 'z78DA95CF510AC0300803D02B' +
         'A59DE0F2D9F6FE771A2CFB10CAC4FE04117C443434D8E4C2EA4A8' +
         '7DFCE8B06FB369AF38C025E139B5C7194EA106F73B9D2991C187D' +
         '3773F92F2BE6A91CBFD05CE9FC00C9DB6164');
  result := -1;
  If(FindDTM(DtmBankLogo, x, y, 570, 7, 723, 160))then
    result:= getcolor(x,y);
  If(result<>-1)Then
    If(FindDTMRotated(DTMBank2,x,y,565,5,725,162,0,6.28318530717959,0.0174532925199433,Angle))Then
      result := GetColor(x,y);
  If(result<>-1)Then
    If(FindBitmapIn(BankBitmap,X,Y,565,5,725,162))Then
      result:= getcolor(x,y);
      If(result=-1)Then
      Begin
      Writeln('Couldn'#39't find Bank Color');
      End else
      Writeln(IntToStr(Result));
  FreeDTM(DtmBankLogo);
  FreeDTM(DTMBank2);
  FreeBitmap(BankBitmap);
  End;
Begin
GetBankColor
End.