Auto tab para o próximo campo em uma DBGRID

[tfrutuoso 0]

Eu estou tentando fazer com que apos digitas as horas e minutos (08:15) na coluna da DBGrid ele va para a proxima coluna,

tipo um maxlength.

Esta DBGrid esta vinculada a um TFDTable

achei esta Procedure, mais não sei como utilizar:

procedure TDBGridInplaceEdit.KeyUp(var Key: Word; Shift: TShiftState); 
var 
  ALimit: integer; 
begin 
  with TCustomDBGrid(Grid) do begin 
    ALimit:=GetEditLimit; 
    if (ALimit > 0) and (Length(Self.Text) >= ALimit) then 
      MoveCol(DataToRawColumn(Col), 0); 
  end; 
  inherited KeyUp(Key, Shift); 
end; 

alguém sabe como fazer ou pode me ajudar com essa situação, tem esse codigo tambem, mais sem sucesso:

procedure TForm1.grdMyGridKeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 with grdMyGrid do 
  if (Key=VK_TAB) and (SelectedIndex=3) and (Fields[2].AsString='D') then
   SelectedIndex := 6;
end;