Usando KeyPress ?

procedure TSDBEdit.KeyPress(var Key: Char);
var
 FEditTemp : TCustomForm;
begin
  if Key = EditKeyTab then begin //Tecla definida para pular para o próximo edit exempo 13.
    FEditTemp := GetParentForm(Self);
    SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0);
   TabKey := True;  // Só que ele pode usar o Tab e não passa aqui...
    Key := #0;
  end
  else begin
    if EditInput = etNumero then begin
      if not (Key in [´0´..´9´,8,13]) then
        Key := 0;
      if Key = 32 then
        Key := 15;
    end;
    if EditInput = etString then begin
      if (key in [´0´..´9´]) then
       key := 13;
    end;

  end;

  if Key <> 0 then
    inherited KeyPress(Key);
end;