没问题阿,
var 
  i: Integer;
Begin
  For i := 0 To Self.DBGrid1.Fields.Count -1 Do
  Begin
    If i <> 2 Then
      Self.DBGrid1.Fields[i].Visible = False;
  End;
End;