procedure TForm2.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var c:char;
begin
if (Field.FieldName='Event')
then
begin
if (Field.Text='') or (Field.Text[0]>#1)
then DBGrid2.Canvas.Brush.Color:=clRed
else
begin
c:=Field.Text[1];
case c of
'0':{вошел}
DBGrid2.Canvas.Brush.Color:=clYellow;
'1':{вышел}
DBGrid2.Canvas.Brush.Color:=clBlue;
'2':{попытка войти}
DBGrid2.Canvas.Brush.Color:=clRed;
'3':{попытка выйти}
.....