Cambiar Color a Panel

[ecfisa]

Hola rotsen26.

Otra opción puede ser usar el evento OnDataChange del TDataSource:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource.OnDataChange:= DataChange;
  DBGrid1.DataSource.DataSet.Open;
end;

procedure TForm1.DataChange(Sender: TObject; Field: TField);
begin
  if DBGrid1.DataSource.DataSet.FieldByName('estatus').AsString = 'RES' then
    Panel1.Color:= clRed
  else
    Panel1.Color:= clGreen;
end;


//...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DBGrid1.DataSource.OnDataChange:= nil;
end;

Asigno el evento por código para darle mayor claridad al ejemplo. Pero lo podés hacer desde el Object Inspector, en tiempo de diseño, diréctamente desde la pestaña Events del componente TDataSource relacionado al DBGrid.

Saludos.