Posiblemente empleando un MaskEdit con máscara de Fecha:
Código Delphi
[-]procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
Tabla.CampoFECHA.Value:=StrToDate(MaskEdit1.text);
except
Application.MessageBox('Formato de fecha incorrecto','Atención',mb_Ok +mb_IconQuestion);
MaskEdit1.SetFocus;
end;
end;
Aunque también puedes ver
aqui y
aqui algo interesante.
{Saludos}