Validar Calendario Días Habiles

[mantraxer21]

Estimados,

Estoy validando un control de formulario llamados "accord" nunca los habia utilizado, resulta que este es el bloque de codigo que asigno en el evento "onchange"

Código Delphi [-]
var f1 : TDateTime;
begin
  f1:= StrToDateTime(ADBDate_pay.Text);
  if (DayOfWeek(f1)=7) or (DayOfWeek(f1)=1) then
         MessageDlg('El día seleccionado no es válido '+ #13#10 +
       'Sólo se permite de Lunes a Viernes', mtWarning, [mbOK], 0);
       ADBDate_pay.SetFocus;
end;

Todo bien hasta ahora, pero quiero que cuando muestre alerta que NO ES VALIDO EL DIA SELECCIONADO, entonces SE BORRE lo que esté actualmente en el control, he intentado de todo.

Código Delphi [-]
 ADBDate_pay.text:= '';
 ADBDate_pay.clear;

Y nada me resuelve el problema....

Alguién que sepa del tema????