Ошибка: IntToStr EConvertError with message ''' is not a valid integer value'

type colour=record
R,G,B:Integer;
end;

function ColorToRGB(const Color: Integer):colour;
begin
  Result.R := Color and $FF;
  Result.G := (Color shr 8) and $FF;
  Result.B := (Color shr 16) and $FF;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Data.picker1:=clBlack;
  Data.picker2:=clWhite;
{picker1 и 2 - integer}
end;

procedure TForm2.FormShow(Sender: TObject);
var c,c1:colour;
begin
  c:=Data.ColorToRGB(Data.picker1);
    c1:=Data.ColorToRGB(Data.picker2);
lbledt1.Text:=IntToStr(c.R); //ошибка здесь
lbledt2.Text:=IntToStr(c.G); //и тут и тд
lbledt3.Text:=IntToStr(c.B);
lbledt4.Text:=IntToStr(c1.R);
lbledt5.Text:=IntToStr(c1.G);
lbledt6.Text:=IntToStr(c1.B); //и тут
shp1.Brush.Color:=Data.picker1;
shp2.Brush.Color:=Data.picker2;
end;

function ClrToRGB(const Color: Integer):colour;
var C : colour;
begin
  C.R := Color and $FF;
  C.G := (Color shr 8) and $FF;
  C.B := (Color shr 16) and $FF;
  Result := C;
end;