DBgrid y PopupMenu

[gsilvei]

Hola ecfisa,
Queria alguna coisa asi:

Código Delphi [-]
procedure TFormPrincipal.Selecionar1Click(Sender: TObject);
var
  Rect: TRect;
  Field: TField;
  State: TGridDrawState;
begin
if gdFocused in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color:=clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end;

Saludos