[[FGarcia]]

De nuevo aqui!
Bueno resolvi esto de la siguiente manera:

Código Delphi [-]
private
    { Private declarations }
    ColorOrigen: TColor;
    procedure ColorEnter(Sender: TObject);
    procedure ColorExit(Sender: TObject);
procedure TfrmClientes.ColorEnter(Sender: TObject);
begin
  ColorOrigen := TDBEdit(Sender).Color;
  TDBEdit(SEnder).Color := clSkyBlue;
end;
procedure TfrmClientes.ColorExit(Sender: TObject);
begin
  TDBEdit(Sender).Color := ColorOrigen;
end;
procedure TfrmClientes.DBEdit1Enter(Sender: TObject);
begin
  ColorEnter(Sender);
end;
procedure TfrmClientes.DBEdit1Exit(Sender: TObject);
begin
  ColorExit(Sender);
end;

Se aceptan todas las sugerencias