Muchas Gracias por vuestra ayuda!
Espero pronto tanmbién resolver dudas a los demás, de momento sigo siendo yo el necesitado ...
El código lo he solucionado directamente como:
Código Delphi
[-]
Shape1.Brush.Color := IBQuery1.FieldByName('COLOR').asInteger;
No me hizo falta la variable intermedia.