[yusnerqui]

Pues si declaras una variable entera resuelves el caso

Código Delphi [-]
  Var
    MyColor : Integer;
 begin
   MyColor := Shape1.Brush.Color;
   IBQuery1.Edit;
   IBQuery1.FieldByName('COLOR').Value := Mycolor;
   IBQuery1.Post;
 end;

 ///Despues
  MyColor := IBQuery1.FieldByName('COLOR').asInteger.

 //Supongo que el campo deba ser de tipo numérico.

Espero te sirva.


Saludos.

Edito:
Me faltaba.

Código Delphi [-]
  Shape1.Brush.Color := MyColor;

Saludos