W8018 Assigning unsigned long to TColor

void __fastcall TForm1::ProcessingClick(TObject *Sender)
{
  int J,JH,I,IH,mr,mg,mb;                 
  
  IH=Image1->Picture->Bitmap->Height;     
  JH=Image1->Picture->Bitmap->Width;      
  Image2->Picture->Bitmap->Height=IH;     
  Image2->Picture->Bitmap->Width=JH;      
 
  for(I = 0; I <IH; I++)
    for(J = 0; J < JH; J++) {
      // ïîïèêñåëüíîå ÷òåíèå
      mr=GetRValue(Image1->Canvas->Pixels[J][I]);     
      mg=GetGValue(Image1->Canvas->Pixels[J][I]);     
      mb=GetBValue(Image1->Canvas->Pixels[J][I]);     
      mr=1.5*mr;    mg=1.5*mg;  mb=1.5*mb;            
         
      if (mr>255) mr=255;  else mr=mr;
      if (mr<0)   mr=0;    else mr=mr;
      if (mg>255) mg=255;  else mg=mg;
      if (mg<0)   mg=0;    else mg=mg;
      if (mb>255) mb=255;  else mb=mb;
      if (mb<0)   mb=0;    else mb=mb;
  
      Image2->Picture->Bitmap->Canvas->Pixels[J][I] = RGB(mr, mg, mb); // Ошибка 
      ProgressBar1->Position = I*100/IH;
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
#include <jpeg.hpp>
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if(OpenPictureDialog1-> Execute()) //Оператор чтения изображения из файла
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ProcessingClick(TObject *Sender)
{
int J,JH,I,IH,mr,mg,mb;                 // объявляем необходимые переменные
 
IH=Image1->Picture->Bitmap->Height;     // определяем высоту исходного изображения
JH=Image1->Picture->Bitmap->Width;      // определяем ширину исходного изображения
Image2->Picture->Bitmap->Height=JH;     // присваиваем значение высоты результирующему изображению
Image2->Picture->Bitmap->Width=IH;      // присваиваем значение ширины результирующему изображению
 
// исключаем возможность выхода за 8-и разрядную сетку новых значений интенсивностей.
// Тем самым предотвращаем искажения, связанные с перегрузкой
// Цикл считывания значений интенсивности трех компонентов (красной, зеленой, синий)
for(I = 0; I <IH; I++)
for(J = 0; J < JH; J++)
{
// попиксельное чтение
mr=GetRValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты красного
mg=GetGValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты зеленого
mb=GetBValue(Image1->Canvas->Pixels[J][I]);     // чтение интенсивности компоненты синего
mr=1.5*mr;    mg=1.5*mg;  mb=1.5*mb;            // преобразование
 
// Ограничение динамического диапазона
if ((mb = (int)mb*1.5)>255) mb = 255;
if ((mr = (int)mr*1.5)>255) mr = 255;
if ((mg = (int)mg*1.5)>255) mg = 255;
 
 
// запись в обработанное изображение новых значений интенсивностей
Image2->Picture->Bitmap->Canvas->Pixels[J][I] = (TColor)RGB(mr, mg, mb);
// Подключаем прогресс-бар
ProgressBar1->Position = I*100/IH;
}
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
Image2->Picture->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Close1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------