DBGrid单击行显示数据在Edit

  procedure   TForm1.DBGrid1CellClick(Column:   TColumn);  
  begin  
      with     Column.Field.DataSet   do  
      if   active   then  
      begin  
          edit1.Text:=fields[0].AsString;  
          edit2.text:=fields[1].asstring;  
          edit3.Text:=fields[2].AsString;  
          edit4.Text:=fields[3].AsString;  
      end;  
  end;