在DBGrid录数据时，如何判断光标位置是在数据的最左或最右，如果是最左或最右则在按左右光标键时光标跳到上一格或下一格，如果是在数据中

下面是一个在DBGrid1按回车键的
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
    EndCol : Integer;
begin
    EndCol := DBGrid1.Columns.Count - 1;
    if Key = #13 then
    begin
        Key := #0;
        with DBGrid1.DataSource.DataSet do
        begin
             if DBGrid1.SelectedIndex <> EndCol then
             begin
                  DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1;
             end
             else
             begin
                  Next;
                  if not Eof then
                  begin
                       DBGrid1.SelectedIndex := 0;
                  end;
             end;
        end;
    end;
end;