Puedes guardarlo en un campo de tipo entero, aquí tienes un ejemplo para que te hagas una idea, solamente te queda en vez de una variable como en el ejemplo utilizar un campo de tu tabla con el tipo apropiado.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
MiFont:LongInt;
begin
miFont:=label1.Font.Color;
ShowMessage(IntToSTr(mifont));
label2.Font.color:=MiFont;
end;
Un Saludo.