Como armar una fecha sin error

[[oscarac]]

Lo solucione de esta manera

espero q a alguien le sirva

Código Delphi [-]
 Try
  wf_vch := EncodeDate(StrToInt(Copy(dmGlobal.g_Periodo,1,4)), strtoint (dmGlobal.g_Mes),  strtoint(edtDia.Text));
  except
    On EConvertError Do edtDia.SetFocus
  End;