كيف أنتقل بالإنتر من حقل إلى الحقل المجاور فى DBGrid

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = #13 then begin 
	Key := #0; 
	if (Sender is TDBGrid) then 
	  TDBGrid(Sender).Perform(WM_KeyDown,VK_Tab,0) 
	else 
	  Perform(Wm_NextDlgCtl,0,0); 
  end; 
end;

Don't forget to Set the form's KeyPreview property to True