Auto tab para o próximo campo em uma DBGRID

[Tiago Frutuoso CWB]

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;