Помогите с двумя задачами для экзамена плиз

var
  DC: HDC;
  Color: Cardinal;
begin
  DC := CreateDC('MONITOR', nil, nil, nil);
  Color := GetPixel(DC, x, y);
  DeleteDC(DC);
end;

begin
  case Variant of
    1:
      begin
        R := Lo(Color); {красный}
        G := Lo(Color shr 8); {зелёный}
        B := Lo((Color shr 8) shr 8); {синий}
      end;
    2:
      begin
        R := Color mod $100;
        G := Color div $100 mod $100;
        B := Color div $10000;
      end;
    3:
      begin
        R := Color and $FF;
        G := (Color and $FF00) shr 8;
        B := (Color and $FF0000) shr 16;
      end;
    4:
      begin
        R := GetRValue(ColorToRGB(Color));
        G := GetGValue(ColorToRGB(Color));
        B := GetBValue(ColorToRGB(Color));
      end;
  end;
end;

var
  Form1: TForm1;
  color:Tcolor;
  n,m,k:integer;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
If ssLeft in shift then
begin
Label1.Caption:=inttostr(x)+','+inttostr(y);
Color:=Image1.Canvas.Pixels[x,y];
Label2.Caption:=IntToStr(ColorToRGB(Image1.Canvas. Pixels[x,y]));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('6.bmp');
end;
end.

Label2.Caption:=
   IntToStr(GetRValue(ColorToRGB(Image1.Canvas. Pixels[x,y]))) +
   IntToStr(GetGValue(ColorToRGB(Image1.Canvas. Pixels[x,y]))) +
   IntToStr(GetBValue(ColorToRGB(Image1.Canvas. Pixels[x,y])));

Label2.Caption:=
   'R' + IntToStr(GetRValue(ColorToRGB(Image1.Canvas. Pixels[x,y]))) +
   'G' + IntToStr(GetGValue(ColorToRGB(Image1.Canvas. Pixels[x,y]))) +
   'B' + IntToStr(GetBValue(ColorToRGB(Image1.Canvas. Pixels[x,y])));