[n3mohack]

Estimados... la solución era más simple de lo que imaginaba:

Código Delphi [-]
procedure TFMain.sbEventosClick(Sender: TObject);
var
   fecha : TDateTime;
begin
  try
    fecha := strtodate(TEFecha.Text);
  except
    MessageDlg('Fecha inválida. Formato requerido dd/mm/aaaa ', mtError, [mbOk], 0, mbOk);
    exit;
  end;
  Screen.Cursor := crHourGlass;
  Procedimiento.Close;
  Procedimiento.Parameters.ParamByName('@fecha_proceso').Value := fecha;
  Procedimiento.Open;
  Screen.Cursor := crDefault;
end;